Alternative to Sendkeys when manipulating a file in Notepad?

you can export as csv without using save as with a code like this

Sub ExportToTextGeneral()
Dim fs As Object
Set Zona = Worksheets("Registro").UsedRange
Set fs = CreateObject("Scripting.FileSystemObject")
Fname = "C:\users\andre\desktop\prova.txt"
FnameExists = fs.FileExists(Fname)
If FnameExists = False Then
  FileNum = FreeFile()
  Open Fname For Output As #FileNum
  If Err <> 0 Then
    MsgBox "I can not open " & Fname
    Exit Sub
  End If
  sep = ","
  delim = """"
  For RowCount = 1 To Zona.Rows.Count
    For ColumnCount = 1 To Zona.Columns.Count
      If ColumnCount = Zona.Columns.Count - 1 Then
      Print #FileNum, delim & Zona.Cells(RowCount, ColumnCount).Text & delim;
      ElseIf ColumnCount = Zona.Columns.Count Then
        Print #FileNum,
      Else
        Print #FileNum, delim & Zona.Cells(RowCount, ColumnCount).Text & delim & sep;
      
      End If
    Next ColumnCount
  Next RowCount
  Close #FileNum
End If
End Sub