Running Two Queries From One Inputbox Result!?

Hi,

I have created the following function in my datebase so that i could specify the date a query works from.

Option Compare Database

Function GetParmValue() As Date

GetParmValue = InputBox("Please enter the date you wish to update!?")

End Function

I have a button on a form that runs the query in question, there is also an identical query that needs to be ran using the same result from the input box but rather than it display the input box twice i wondered if there was a way i could use the result from one of the boxes with both queries!?

Here is the code for the button;

Private Sub bImport5_Click()

DoCmd.SetWarnings False
DoCmd.OpenQuery "Update"
DoCmd.OpenQuery "UpdateFuture"
DoCmd.OpenQuery "MoveFuture"
DoCmd.SetWarnings True
MsgBox "Files have now been updated to the specified date and moved to the Future Dated table!", vbOKOnly, "Update Complete"

End Sub

Any ideas guys?

Many thanks
Tim