Dim iIndex As Integer
    Dim tmpData() As String
 
    'Initialisierung
    iIndex = -1
 
  .....Schleife
 
            iIndex = iIndex + 1
            ReDim Preserve tmpData(iIndex)
            tmpData(iIndex) = nam
 
....Schleifen-Ende
 
 
    Next nam
 
'Übergabe an den Funktionsnamen
Funktionsname = tmpData

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD