If TextBox1.Value = "" then
     msgbox "Не заполнено поле 'Уровень зарплаты'",vbinformation
     Exit sub
end if

dim dOpb#
For Each x In Me.Controls
        If TypeOf x Is MSForms.OptionButton Then
            dOpb = dOpb + Abs(x.Value) 'если будет True(т.е. пункт выбран), то Abs(x.Value) будет равно 1. В противном случае  - 0
        End If
        If TypeOf x Is MSForms.TextBox Then
            If x.Value = "" Then
                MsgBox "Zapolni Zarplatu"
                Exit Sub
            End If
        End If
    Next
    'если dOpb равно 0 - ни одна OptionButton не выбрана
    If dOpb = 0 Then
        MsgBox "Необходимо выбрать вариант"
        Exit Sub
    End If