ho provato con debug.print e valorizza correttamente GiornataScelta e sembra funzionare tutto.
avrei risolto modificando il codice così quindi:

Private Sub txtGoToData_AfterUpdate()
  Dim GiornataScelta As Date
   
  GiornataScelta = FirstDayInWeek(Me.txtGoToData)
   
  Me.CalcParam (GiornataScelta)
  Me!Appuntamenti2.Form.CalcParam (GiornataScelta)
 
End Sub