Public Sub makeTextFile(fileName As String, buff As String)
    Dim fileNo As Integer
    fileNo = FreeFile
    Open fileName For Output As #fileNo
    Print #fileNo, buff
    Close #fileNo
End Sub