Public Function VB5_Split(ByVal sText As String, ByVal sChar As String) As _
  Variant
  Dim sItems() As String
  Dim nCount As Integer
  Dim lPos As Long
 
  nCount = 0
 
  Do
    ReDim Preserve sItems(nCount)
    lPos = InStr(sText, sChar)
    If lPos > 0 Then
      sItems(nCount) = Left$(sText, lPos - 1)
      sText = Mid$(sText, lPos + 1)
      nCount = nCount + 1
    Else
      sItems(nCount) = sText
      Exit Do
    End If
  Loop
 
  VB5_Split = sItems
End Function

Dim sWords AS Variant
Dim I As Integer
 
sWords = VB5_Split("Ich und Du...", " ")
 
For I = 0 To UBound(sWords)
  Debug.Print sWords(I)
Next I