Option Explicit

Sub Splitten()
Dim strText As String
Dim strLinksText As String
Dim strRechtsText As String
Dim intPos As Integer
Dim intI As Integer

' 1-1 - 06 -
' Ich gehe davon aus Du willst nur links die Zeichen bis zu dem ersten Leerzeichen in Spalte B
' und dann die Zeichen vom zweiten bis zum dritten leerzeichen in Spalte C und sonst nichts?

For intI = 1 To Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
    strText = Cells(intI, 1).Value ' Inhalt von Zelle in Spalte A
    strText = Trim$(strText) ' führende und nachgestellte Leerzeichen entfernen
    intPos = InStr(strText, " ")
    strLinksText = Left$(strText, intPos - 1) 'Alle Zeichen bis zu dem ersten Leerzeichen auslesen
    Cells(intI, 2).Value = strLinksText     ' In Zelle B eintragen
    strRechtsText = Mid$(strText, intPos + 3, Len(strText) - intPos - 4)
    Cells(intI, 3).Value = strRechtsText
Next intI
End Sub