Private Sub Command1_Click()
Open "C:\asd.txt" For Append As #1
Print #1, Text1.Text & " " & Text2.Text
Close #1
End Sub

Para separar registros se usan comas en realidad.
Private Sub Command1_Click()
Open "C:\asd.txt" For Append As #1
Print #1, Text1.Text, Text2.Text
Close #1
End Sub
O sino se puede usar la palabra clave Tab
Private Sub Command1_Click()
Open "C:\asd.txt" For Append As #1
Print #1, Text1.Text, Tab(4), Text2.Text
Close #1
End Sub
Saludos.