Программирование разветвляющихся вычислительных процессов

Private Sub calc_Click()
Dim S, P As Double
S = Val(InputBox("Введите расстояние", "Ввод данных"))
 
If S = 0 Then GoTo ttt
 
If S <= 20 Then
P = 35
ElseIf (S > 20) And (S <= 75) Then
P = 53
ElseIf (S > 75) Then
P = 60
End If
txtSumma.Text = Str(S) + " км."
txtVzngr.Text = Str(P) + " руб."
 
Exit Sub
ttt:
 
MsgBox "ПРОИЗОШЛИ УЖАСНЫЕ ОШИБКИ", vbCritical, "ERROR !!!"
 
 
End Sub
Private Sub clean_Click()
 txtSumma = Clear
 txtVzngr = Clear
End Sub
Private Sub ExitForm_Click()
End
End Sub

Private Sub CommandButton1_Click()
Dim S As Double, P As Currency
S = CDbl(TextBox1.Text)
 
 Select Case S
 Case 0 To 20
 P = 35
 Case 21 To 75
 P = 53
 Case Is > 75
 P = 60
 End Select
  TextBox2.Text = P
End Sub
Private Sub clean_Click()
 TextBox1.Text = Clear
 TextBox2.Text = Clear
End Sub
Private Sub ExitForm_Click()
End
End Sub