Private Sub Form_Load()
 
    Dim sString As String
    Dim sData() As String
    Dim i As Long
 
    sString = "1 2 3 4 5"
 
    sData = String2Array(sString)
    For i = 0 To UBound(sData)
      Debug.Print sData(i)
    Next i
 
End Sub
 
Public Function String2Array(sString As String) As Variant
 
    Dim sData() As String
 
    sData = Split(sString & " 0", " ") '  & " 0" <--- einen weiteres Array _
      immer hinzufügen
 
    String2Array = sData
 
End Function

*greetz*
Tim
.
http://www.DotNetWorld.de