Private Sub Form_Load()
On Error GoTo oshibka
Dim oklad As Long
oklad = InputBox("введите величину оклада", "расчёт зарплаты")
Dim prem As Long
prem = InputBox("введите величину премии", "расчёт зарплаты")
Dim nadb As Long
nadb = InputBox("введите величину надбавки", "расчёт зарплаты")
Dim nalog As Long
nalog = InputBox("введите величину налога (в процентах)", "расчёт зарплаты")
Dim zar As Long
zar = (oklad + prem + nadb) * (100 - nalog) / 100
MsgBox "зарплата " & zar & " руб"
Exit Sub
oshibka:
MsgBox "Вводить можно только цифры!"
End
End Sub

Private Sub Form_Load()
On Error GoTo oshibka
Dim K As Long
K = InputBox("введите значение К", "расчёт зарплаты")
If K > 0 And K < 18 Then
MsgBox "Мне меньше 18 лет"
ElseIf K > 18 And K < 45 Then
MsgBox "Мне больше 18 и меньше 45 лет"
ElseIf K = 18 Then
MsgBox "Мне 18 лет"
ElseIf K > 45 And K <= 100 Then
MsgBox "Мне " & K & "лет"
End If
Exit Sub
oshibka:
MsgBox "Вводить можно только цифры!"
End
End Sub