open and close txt file

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]

Printer.Print txtname.Text; Tab(50); txtemail.Text

Use a small database instead of a text file.

hack can you give me more details on that?

ok i see what you mean now but how would i be able to save the values into the database?