Navn på fil

Hej

Kan man få denne kode til at, for den som standard skrive en bestemt tekstbox som filnavn, men man skulle kunne ændre det?

Dim stDocName As String
Dim strFilter As String
Dim strSaveFileName As String

strFilter = ahtAddFilterItem(strFilter, "Tekstfil (*.txt)", "*.txt")
strSaveFileName = ahtCommonFileOpenSave( _
                                    OpenFile:=False, _
                                    Filter:=strFilter, _
                    Flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY)
                   

With CreateObject("Scripting.FileSystemObject").createTextFile(strSaveFileName)
    .Write Forms!dnk_formular1!Tekst4
End With

/lars