Public Function DeliveryDateFast(intYear As Integer, intMonth As Integer)
Dim datStart As Date
datStart = DateSerial(intYear, intMonth, 8)
DeliveryDateFast = datStart + (7 - Weekday(datStart, vbThursday))
End Function
Sub Main()
Debug.Print DeliveryDateFast(1998,7)
End Sub