Textbox to notepad

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