Курсовая работа: Основы программирования на VBA модель объектов Exel

B = MsgBox("Введите марку бензина", vbCritical, "")

UserForm1.TextBox3.SetFocus

GoTo s

End If

O_prob = UserForm1.TextBox4

If O_prob = "" Then

B = MsgBox("Введите общий пробег", vbCritical, "")

UserForm1.TextBox4.SetFocus

GoTo s

End If

O_prob = ""

'Сообщение об ошибке при вводе нечисловых данных

On Error Resume Next

O_prob = CDbl(UserForm1.TextBox4)

If O_prob = "" Then

B = MsgBox("Введите число!!!", vbCritical, "")

UserForm1.TextBox4.SetFocus

GoTo s

End If

Potr = UserForm1.TextBox4

If Potr = "" Then

B = MsgBox("Введите потребление л/100", vbCritical, "")

UserForm1.TextBox5.SetFocus

GoTo s

End If

Potr = ""

On Error Resume Next

Potr = CDbl(UserForm1.TextBox5)

If Potr = "" Then