Scripting - Read or Write a Text File

Reading text:

Private Function ReadLineFromFile(Filename As String) As String
   Dim TextLine As String
   ' check if file exists
   If Len(Dir(Filename)) = 0 Then
      ReadLineFromFile = ""
      Exit Function
   End If
   Open Filename For Input As #1
   Line Input #1, TextLine
   Close #1
   ReadLineFromFile = TextLine
End Function

Writing text:

Private Sub WriteLineToFile(Filename As String, Line As String)
   Open Filename For Output As #1
   Print #1, Line
   Close #1
End Sub 

If you look for a sample script to log details in your code then check this link: Scripting - Sample on writing a log file