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