hi im trying to align the name and the email address can someone help me out?

Private Sub cmdcontact_Click()
'Save Contact
Open "contact.txt" For Append As #1
Printer.Print "txtname.Text", "txtemail.Text"
MsgBox ("Contact Saved")
End Sub

it ends up coming out like this in the text file

jim mack [email protected]
Albert Sanchez [email protected]
Chris Jones [email protected]