codice:
    Dim PosizioneSpazio As Integer
    PosizioneSpazio = InStr(Stringa, " ")
    If PosizioneSpazio > 0 Then
        Stringa = Left(Stringa, PosizioneSpazio - 1) & Chr(9) & Right(Stringa, Len(Stringa) - PosizioneSpazio)
    End If
InStr restituisce la posizione del primo carattere che cerchi, partendo da sinistra (in questo caso cerca lo spazio)
Chr(9) sta per tabulazione (09 è il suo valore esadecimale)