If txtDatatypes.Text.Length Mod 4 = 3 Then

For RegexCount = 0 To txtDatatypes.Text.Length - 1

If RegexCount Mod 4 = 0 Or RegexCount Mod 4 = 1 Then

If Not Regex.Match(txtDatatypes.T

lblErrs.Text = "The " + (RegexCount + 1).ToString + "th character must be a letter"

Exit Sub

End If

End If

If RegexCount Mod 4 = 2 Then

If Not Regex.Match(txtDatatypes.T

lblErrs.Text = "The " + (RegexCount + 1).ToString + "th character must be a number"

Exit Sub

End If

End If

If RegexCount Mod 4 = 3 Then

If txtDatatypes.Text.Substrin

lblErrs.Text = "The " + (RegexCount + 1).ToString + "th character must be a space"

Exit Sub

End If

End If

Next

Else

lblErrs.Text = "Datatypes box must be a set 3 letter datatypes followed by a space"

Exit Sub

End If