Split?

...or use a function like this:
Code:
Function SplitCommand(Arg() As String, Text As String, Seperator As String) As Long
    Dim Length As Long
    
    Dim Count As Long
    Dim Pos As Long
    Dim Temp As Long
    
    Count = -1
    Pos = 1
    ReDim Arg(0)
    
    Length = Len(Text)

    While Pos <= Length
        Temp = InStr(Pos, Text, Seperator, vbTextCompare)
        
        If Temp = 0 Then
            Count = Count + 1
            ReDim Preserve Arg(Count)
            Arg(Count) = Mid(Text, Pos, Len(Text) - Pos + 1)
            Pos = Length + 1
            
        Else
            Count = Count + 1
            ReDim Preserve Arg(Count)
            Arg(Count) = Mid(Text, Pos, Temp - Pos)
            
            Pos = Temp + 1
        End If
    Wend
    
    GetArgsFast = Count
End Function