'Ask for a name, address, and city/state/zip. Write that
'information to an existing file named addressFile.txt

Sub AddName()
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fs, f
    Dim yourName, yourAddress, cityStateZip As String
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("addressFile.txt", ForAppending, TristateFalse)
    yourName = InputBox("Type your name")
    yourAddress = InputBox("Type your street address")
    cityStateZip = InputBox("Type your city, state, and zip code")
    f.write yourName & Chr$(13) & _
        yourAddress & Chr$(13) & _
        cityStateZip & Chr$(13) & Chr$(13)
    f.Close
End Sub