Error in saving the Ms Access text file

First Many thanks to you all for trying very to assist on how to save string from MS Access to a text file, however, there are still a few things remaining to get it right, the file to save is giving a debug error when trying save. Could it be I'm going off the line again?

Private Sub CmdServings_Click()
Dim strData As String
Dim n As Integer
Dim dlg As filedialog
Dim GetFilePath As Object
    Set dlg = Application.filedialog(msoFileDialogSaveAs)
    dlg.AllowMultiSelect = False
    dlg.Title = "Select the file to be imported..."
   
    If dlg.Show Then
    GetFilePath = dlg.SelectedItems(1)
    End If
n = FreeFile()
Print #n, strData
Close #n
End Sub