Example - Put Statement

Sub Main ()
    Dim myText As String
    Dim myFileContents As String
    Open "d:\temp\test.txt" For Output As #1 ' Open to write file.
    myText = InputBox("Type some text to add to the file")
    Put #1,,myText 'Writes the text to the file assigned to #1.
    Close #1
End Sub