Private Sub Command1_Click()
On Error GoTo line2
   
Dim x
x = GetAttr(App.Path & "\archivo.txt") 'Si no existe genera un error.

line1:
Open App.Path & "\archivo.txt" For Append As #1 'Escribe el contenido de las cajas de texto
    Print #1, Text1.Text, Text2.Text
Close #1

Exit Sub

line2:
Open App.Path & "\archivo.txt" For Output As #1 'Lo crea
Close #1
GoTo line1
End Sub