Michael,

Give the following a try. Place the following public function in a standard
module.

Public Function CalcCutOffDate(StartDate As Date) As Date
Dim CutOffDate As Date
Dim DayOfWeek As Integer
CutOffDate = DateAdd("h", 48, StartDate)
DayOfWeek = Weekday(CutOffDate)
If Weekday(CutOffDate) = 7 Then
   CutOffDate = DateAdd("d", 2, CutOffDate)
ElseIf Weekday(CutOffDate) = 1 Then
   CutOffDate = DateAdd("d", 1, CutOffDate)
End If
CalcCutOffDate = CutOffDate
End Function

Then call the function from the After_Update event of the dispatch date with
the following statement:

Me.txtCutoffDate = CalcCutOffDate(Me.txtStartDate)

"txtCutoffDate" is the name of the cutoff date control and the
"txtStartDate" is the dispatch date.