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