How about a user-defined function?

Public Function DueDate(OrderDate As Date, WorkdaysLater As Integer)
As Date
Dim iCt As Integer
Dim iCt2 As Integer
Do
iCt = iCt + 1
If Weekday(OrderDate + iCt) 1 And _
Weekday(OrderDate + iCt) < 6 Then iCt2 = iCt2 + 1
Loop Until iCt2 = WorkdaysLater
DueDate = Format(OrderDate + iCt, "m/d/yy")
End Function

Hth,
Merjet