Ciao vr-claudio, ricordati d'inserire sempre il linguaggio (visto che chiedi SaveFile, presumo che sia VB).
codice:
Private Sub Command1_Click()
    Dim FileNum As Integer
    Dim FileName As String
    
    ' Percorso, nome della cartella e del file (da inserire in Form1.Text1.Text & ".txt"):
    FileName = App.Path & "\Prova\" & Form1.Text1.Text & ".txt"
    
    FileNum = FreeFile()
        
        Dim strCL1 As String
        strCL1 = Form1.Text2.Text
        Open FileName For Output As #FileNum
            Write #FileNum, strCL1
        Close #FileNum
End Sub
Nell'esempio, funzionante, ho inserito due Txt: una contiene il Testo da salvare Text2, l'altra il nome dato al File.