I have multiple queries that use the same date and want to ask the user only once

```
Public Sub runappends()
Dim getmyparameter As Date

Call getmyparameter1(getmyparameter)

DoCmd.OpenQuery "Append to Current Quarter Counts 1", acViewNormal, acAdd

DoCmd.OpenQuery "Append to Current Quarter Counts 2", acViewNormal, acAdd

End Sub

Public Function getmyparameter1(getmyparameter As Date)

getmyparameter = CDate(InputBox("enter date greater than"))

End Function

```

The query(s) criteria is `=>getparameter1()` as the only option here is to call the function.

But can't seem to get the date to pass to query 2,3, etc.?