Textbox to notepad

Hi

Ive been using this code to copy 30 textboxes into a word document. How can i change it to do the same in noetpad?

Sub CreateNewNightReport()
Dim sTmpString As String
     'Opens new word document - GM
     Dim objWord As Object

Set objWord = CreateObject("Word.Application")

    Dim i As Integer
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add

   'Copies TextBox1 into word document - GM
    
    sTmpString = ActiveSheet.TextBox1.Value

    With wrdApp
        .Selection.TypeText Text:=sTmpString
        .Selection.TypeParagraph
    End With


    'Copies TextBox2 into word document - GM
    
    sTmpString = ActiveSheet.TextBox2.Value
    
    
    With wrdApp
        .Selection.TypeText Text:=sTmpString
        .Selection.TypeParagraph
    End With    

 Set wrdDoc = Nothing
 Set wrdApp = Nothing

End Sub

thanks inadvance

please add code tags to your post

are you trying to append the data to an existing text file or create a new one?

please add code tags to your post ;-)

where are these textboxes? in a Word document? (this is not the Word forum)

ok-how do you want the data added to the text file-separate line per textbox or all on one line with a delimiter?

Sub writeToFile()
   Dim n As Long
   Dim lFile As Long
   Dim sPath As String
   
   ' change path
   sPath = "C:\some file.txt"
   
   lFile = FreeFile
   
   Open sPath For Output As lFile
   
   For n = 1 To 30
      Print #lFile, ActiveSheet.OLEObjects("Textbox" & n).Object.Text
   Next n
   
   Close lFile
   
End Sub

for instance