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