Overføre værdi til save-dialog

Jeg bruger koden fra http://www.mvps.org/access/api/api0001.htm til at åbne save-dialogen med følgende kode:

Private Sub Kommandoknap17_Click()
On Error GoTo Err_Kommandoknap17_Click
Dim strFilter As String
Dim strInputFileName As String
strFilter = ahtAddFilterItem(strFilter, \"Tekst-filer (*.txt)\", \"*.txt\")
strSaveFileName = ahtCommonFileOpenSave(OpenFile:=False, Filter:=strFilter, _
                    DialogTitle:=\"Gem filen som...\", _
                    Flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY)
Exit_Kommandoknap17_Click:
    Exit Sub
Err_Kommandoknap17_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap17_Click
End Sub

Jeg har en forespørgsel, hvis værdier jeg selvfølgelig gerne vil have overført til til den tekstfil som brugeren vælger i dialogen.
Hertil har jeg en knap som bare gemmer resultatet på c-drevet som følger:

Private Sub Kommandoknap8_Click()
DoCmd.TransferText acExportDelim, , _
\"navisionimport\", \"C:\\Navision.txt\"
MsgBox \"Data til import i Navision er gemt i filen Navision.txt på c-drevet\"
End Sub

Hvordan får lavet det således at data fra denne forespørgsel bliver gemt i filen som vælges/skrives i dialogboksen?