If DateTime.Now > objJob.NextStartDate Then
 
      While dtmNow > objJob.NextStartDate
        objJob.NextStartDate = objJob.NextStartDate.AddDays(1)
      End While
 
      dtmNow = objJob.NextStartDate
 
      While Not objJob.Days.Contains(dtmNow.DayOfWeek)
        dtmNow = dtmNow.AddDays(1)
      End While
 
      Return New DateTime(dtmNow.Year, dtmNow.Month, dtmNow.Day, dtmNow.Hour, _
        dtmNow.Minute, dtmNow.Second)
 
Else
      Return objJob.StartTime
End If

 If dtmNow > objJob.NextStartDate AndAlso _
    objJob.Days.Contains(dtmNow.DayOfWeek) Then