Private Sub Command1_Click()
If Text1.Text <= 5 Then
   Label3.Caption = 3.5 * Text1.Text
End If
If Text1.Text > 5 And Text1.Text <= 10 Then
   Label3.Caption = 3.25 * Text1.Text
End If
If Text1.Text > 10 And Text1.Text <= 20 Then
   Label3.Caption = 3.1 * Text1.Text
End If
If Text1.Text > 20 Then
   Label3.Caption = 2.85 * Text1.Text
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label3.Caption = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
End Sub