OK, do it the other way around.
Function test1()
Dim inbox As String
inbox = InputBox("Please enter File path")
DoCmd.TransferText acExportDelim, "", "Website Login Query", inbox & "file.csv"
End Function
or fill in a default value and let the user modify it -
Function test1()
Dim inbox As String
inbox = InputBox("Please alter location to suit", , "C:\SomeLocation\Filename.csv")
DoCmd.TransferText acExportDelim, "", "Website Login Query", inbox
End Function
Chris B