Sì è possibile farlo basta impostare in precedenza il Titolo del file (nell'esempio FrmAA.TxtNuovoFile.Text & ".csv"):
codice:
Public Sub SalvaSP()
On Error Resume Next
           
        Dim FileNum As Integer
        Dim FileName As String
        Dim FileTitle As String
    
        FileName = App.Path & "\DATI\StatoPatrimoniale\" & FrmAA.TxtNuovoFile.Text & ".csv"
        FileTitle = FrmAA.TxtNuovoFile.Text & ".csv"
        frmMain.TxtInd2.Text = FileName     'Visualizza nome e percorso del file in uso nella Barra di stato
        FileNum = FreeFile()
        
        If Len(FileName) = 0 Or Len(FileTitle) = 0 Then
            Call SalvaSPpassivo             'Chiama la routine Salva con nome
            Exit Sub
        End If
        
'Stato Patrimoniale Attivo:
        Dim dblSPA1s As Double, dblSPA2s As Double, ...
        ... ...
        dblSPA1s = FrmStatoPatrim.Txt1SP.Text           
        dblSPA2s = FrmStatoPatrim.Txt2SP.Text
        ... ...
        Open FileName For Output As #FileNum
           Write #FileNum, dblSPA1s, dblSPA2s,
        ... ...  
        Close #FileNum
'Indica che lo Stato Patrimoniale è stato salvato:
            FrmStatoPatrim.boolVerifica10 = True
Ciao.