Public Sub WriteIntoText(Filename As String, DataString As String)
Dim F As Integer
F = FreeFile
Open Filename For Append As #F
Print #F, DataString
Close #F
End Sub
Know the answer? Post it — somebody with the same question will find it here.
Sign in to answer this question
It is the same account you read, post and publish with — and you will come straight back to this page.
Rajeev PunhaniPosted May 31, 2017, 5:14 AM