Visual Basic 6 - Formattazione testo

Salve a tutti, ho un problema!!!!!!

Io ho un file txt con del testo non formattato con il tab.
Esempio: "Ho una macchina bella."
Vorrei farlo diventare cosi:"Ho    una    macchina    bella."
Capito?
Una parola, un tab, una parola, un tab, ecc....

Nella form metti una Command Button, un controllo CommonDialog (nel caso non lo sapessi, lo puoi selezionare facendo clic col tasto destro sulla barra dei controlli, cliccando su Componenti, selezionando Microsoft Common Dialog Control 6.0 (SP3) e premendo OK) e una TextBox con proprietà Multiline impostata a True e magari anche con proprietà Visible impostata a False.
Poi metti i seguenti codici:

Private Sub Command1_Click()
Dim a As String
a = Replace(Text1.Text, " ", vbTab)
Text1.Text = a
CommonDialog1.Filter = "Text Files|*.txt"
CommonDialog1.FileName = CommonDialog1.FileName
Open CommonDialog1.FileName For Output As #1
Print #1, Text1
Close #1
End Sub

Private Sub Form_Load()
CommonDialog1.Filter = "Text files|*.txt"
CommonDialog1.ShowOpen
CommonDialog1.FileName = CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
Form1.Caption = CommonDialog1.FileName
End Sub