Es que aunke no exista el arcihvo, lo crea e introduce los datos, no hace falta crearlo antes...
Con este codigo ya es suficiente, si el archivo no existe se crea igual...
Private Sub Command1_Click()
Open "C:\asd.txt" For Append As #1
Print #1, Text1.Text & " " & Text2.Text
Close #1
End Sub
...
Salu2