dim FollowUpByDate as date 'set this to what ever the start date is
dim BusinessDays as integer = 0
While BusinessDays < 2
FollowUpByDate = FollowUpByDate.AddDays(1)
if FollowUpByDate.DayOfWeek <> DayOfWeek.Saturday and _
FollowUpByDate.DayOfWeek <> DayOfWeek.Sunday Then
BusinessDays += 1
end if
End While