Exporting A Query(report) To Excel

I am exporting queries to Excel using a Form with command buttons. The code for this effort follows:

Private Sub Command8_Click()

Dim reportName As String
Dim theFilePath As String


Select Case Me.Frame1.Value

Case 1
reportName = "qryPriorMnth"
Case 2
reportName = "qryNewRequests"
Case 3
reportName = "qryNoApprovals"

End Select

theFilePath = Me.txtFilePath.Value
theFilePath = theFilePath & reportName & "_" & Format(Date, "yyyy-mm-dd") & ".xls"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, reportName, theFilePath, True

MsgBox "Done."

End Sub

The code works great, however, I will be making this available to several users who will use access from differenct PCs. In order for them to get the data passed to their respective desktops, they would have to change the Me.txtfilePath.Value in the properties manaually. This is currently in the Row.Source for an unbound text box. I would prefer them not messing with that. The current value is
="C:Documents and Settings’User_ID’Desktop"
where the User_ID (varies from user to user) would need to be changed. Can this be done with a variable setting that would prompt the user for their User_ID and then execute to the appropriate desk top. I am a VBA novice and would appreciate any help at all.

Thanks
Alan