Protected Sub addCrewFormAssignment(Optional sfarFk As Integer = 0) 'validate the data Dim crewId = crewAssDrop.SelectedValue Dim custId = customerInput.SelectedValue If (custId = String.Empty) Then End If If (crewId = "-1") Then success.Text = "Please select a crew member to add it to." success.Show() Exit Sub End If If (assToDrop.SelectedValue = "1") Then If Not IsDate(crewDateInput.SelectedDate) Then success.Text = "Please select a start date." success.Show() Exit Sub End If ElseIf (assToDrop.SelectedValue = "4") Then If Not IsDate(dotStartInput.SelectedDate) Then success.Text = "Please select a start date." success.Show() Exit Sub End If End If