Is there a way to nest these?

[GinaFlan]

If IsNumeric(Me.TxtActualBenchmark) = "False" _
And txtBenchmarks.Value = "1 promotion per month" Then
Me.TxtActualBenchmark.Undo


MsgBox "Please enter a numeric value ", _
vbInformation, "Missing Information"
Exit Sub
End If
If InStr(Me.TxtActualBenchmark, ".") = 0 And Me.txtBenchmarks.Value = ".02% increase monthly" Then
MsgBox "Please enter a decimal", vbInformation, "Missing Information"
Cancel = True
Exit Sub
End If

If InStr(Me.TxtActualBenchmark, ".") = 0 And Me.txtBenchmarks.Value = "89 percent of free and reduced applications measured at month end" Then
MsgBox "Please enter a decimal", vbInformation, "Missing Information"
Cancel = True
Exit Sub
End If

If IsNumeric(Me.TxtActualBenchmark) = "False" _
And txtBenchmarks.Value = "Less than 20 student complaints per month" Then
Me.TxtActualBenchmark.Undo
MsgBox "Please enter a numeric value ", _
vbInformation, "Missing Information"
Exit Sub
End If
If IsNumeric(Me.TxtActualBenchmark) = "False" _
And txtBenchmarks.Value = "Less than 20% negative ballots or staff observations" Then
Me.TxtActualBenchmark.Undo
MsgBox "Please enter a numeric value ", _
vbInformation, "Missing Information"
Exit Sub
End If
If IsNumeric(Me.TxtActualBenchmark) = "False" _
And txtBenchmarks.Value = "At least one program every 6 months" Then
Me.TxtActualBenchmark.Undo
MsgBox "Please enter a numeric value ", _
vbInformation, "Missing Information"
Exit Sub
End If
If IsNumeric(Me.TxtActualBenchmark) = "False" _
And txtBenchmarks.Value = "No findings" Then
Me.TxtActualBenchmark.Undo
MsgBox "Please enter a numeric value ", _
vbInformation, "Missing Information"
Exit Sub
End If
If IsNumeric(Me.TxtActualBenchmark) = "False" _
And txtBenchmarks.Value = "No negatives" Then
Me.TxtActualBenchmark.Undo
MsgBox "Please enter a numeric value ", _
vbInformation, "Missing Information"
Exit Sub
End If

[ranman256]

At least, more readable...

Dim vMsg

Select Case True
    Case IsNumeric(TxtActualBenchmark) = False And txtBenchmarks.Value = "1 promotion per month"
        vMsg = "Please enter a numeric value "
    
    Case InStr(TxtActualBenchmark, ".") = 0 And txtBenchmarks.Value = ".02% increase monthly"
       vMsg = "Please enter a decimal"
    
    Case InStr(TxtActualBenchmark, ".") = 0 And txtBenchmarks.Value = "89 percent of free and reduced applications measured at month end"
       vMsg = "Please enter a decimal"
    
    Case IsNumeric(TxtActualBenchmark) = False And txtBenchmarks.Value = "Less than 20 student complaints per month"
        vMsg = "Please enter a numeric value "
    
    Case IsNumeric(TxtActualBenchmark) = False And txtBenchmarks.Value = "Less than 20% negative ballots or staff observations"
        vMsg = "Please enter a numeric value "
    
    Case IsNumeric(TxtActualBenchmark) = False And txtBenchmarks.Value = "At least one program every 6 months"
        vMsg = "Please enter a numeric value "
    
    Case IsNumeric(TxtActualBenchmark) = False And txtBenchmarks.Value = "No findings"
        vMsg = "Please enter a numeric value "
    
    Case IsNumeric(TxtActualBenchmark) = False And txtBenchmarks.Value = "No negatives"
        vMsg = "Please enter a numeric value "
End Select

If vMsg <> "" Then
  TxtActualBenchmark.Undo
  MsgBox vMsg, vbInformation, "Missing Information"
End If

[GinaFlan]

Ok wonderful thank you

[June7]

Copy/paste code within CODE tags and it will be more legible to readers, assuming you have used indentation in your code. Click the CODE icon on the post editor toolbar.