Hi Jessie,

You may try this to solve your problem

Private Sub ToRead()
Dim intfreefile As Integer
Dim strFileName As String
Dim strMember As String
Dim strName As String
Dim strLastname As String
Dim strAddress As String
Dim strPhone As String

strFileName = Dir("d:\home.txt")
intfreefile = FreeFile

Open strFileName For Input As #intfreefile

Do While Not EOF(intfreefile)
Input #intfreefile, strMember, strName, strLastname, strAddress, strPhone
MsgBox (strMember & strName & strLastname & strAddress & strPhone)
Loop

Close #intfreefile

End Sub

Private Sub ToWrite()

Dim intfreefile As Integer
Dim strFileName As String
Dim strMember As String
Dim strName As String
Dim strLastname As String
Dim strAddress As String
Dim strPhone As String

strFileName = Dir("d:\home.txt")
intfreefile = FreeFile

strMember = "001 "
strName = "Jessie "
strLastname = "Do not know "
strAddress = "Anywhere "
strPhone = "Anynumber"

Open strFileName For Output As #intfreefile
Write #intfreefile, strMember, strName, strLastname, strAddress, strPhone
Close #intfreefile

End Sub

Does it help ?


Regards