停车不超过2小时，收费2元，以后多停1小时，加0.5元，但停车不得超过5小时。
我很菜，刚学，做了个，但是“停车不得超过5小时”这里出错，下面是我写的，请高手帮忙指教！
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim t!, m!
t = Val(TextBox1.Text)
If t > 5 Then
MsgBox("停车不得超过5小时，您已违反规定", , "错误")
TextBox1.Text = ""
TextBox1.Focus()
ElseIf t < 0 Then
MsgBox("输入错误，请重新输入", , "错误")
TextBox1.Text = ""
TextBox1.Focus()
Exit Sub
End If
If t <= 2 Then
m = 2
ElseIf t < 3 Then
m = 2 + 0.5
ElseIf t < 4 Then
m = 2 + 0.5 + 0.5
Else
m = 2 + 0.5 + 0.5 + 0.5
End If
MsgBox("您的停车费用为" & m & "元", , "停车费用")
End Sub
End Class


试了下 没有报错