Dim strText As String
Dim i As Long
 
'   Das ist meine Eingabe
strText = "  1378    04.02.04  00:00:44 10     0697929249 2 "
 
'   Ausgeben
Debug.Print "'" & strText & "'"
 
'   Führende und abschließende Leerzeichen killen
strText = Trim$(strText)
 
'   Alle doppelten Leerzeichen durch einfache ersetzen
i = InStr(1, strText, "  ")
Do While i <> 0
    strText = Left$(strText, i) & Mid$(strText, i + 2)
    i = InStr(1, strText, "  ")
Loop
 
'   Leerzeichen durch Semikolon ersetzen
strText = Replace$(strText, " ", ";")
 
'   Ausgeben
Debug.Print "'" & strText & "'"