Private Sub Form_Load()
  Dim arr_vTest() As Variant
  arr_vTest = Array("a", "b", "c")
  Call DoIt(arr_vTest, 0, "")
End Sub
 
Private Function DoIt(arr_vItems() As Variant, iItem As Integer, strString As _
  String) As String
  Dim iIndex As Integer
  Dim sString As String
 
  For iIndex = LBound(arr_vItems) To UBound(arr_vItems)
    sString = strString & arr_vItems(iIndex)
 
    If UBound(arr_vItems) = iItem Then
      'letztes element erreicht
      Debug.Print sString
    Else
      Call DoIt(arr_vItems, iItem + 1, sString)
      Debug.Print sString
    End If
  Next iIndex
 
End Function