我正在自学VB，做一个简单的快递付费软件

Private Sub cmd1_Click()
Dim a As Single
a = Val(txt.Text)
If a = 0 Then
lbl.Caption = "您应支付零元"
ElseIf a > 3 Then     '第二段。。。
lbl.Caption = "您应支付" & a + 2 & "元"     
ElseIf 0 < a < 3 Then    '第三段。。。
lbl.Caption = "您应支付5元"
End If
End Sub

Private Sub cmd2_Click()
lbl.Caption = ""
txt.Text = ""
End Sub

有两个问题，第一问题：事件一中，第二段和第三段换个位置，我输入5，6，7。。。结果都是5元，为什么？
第二个问题：如果TXT。TEXT为空，点计算，出错，怎么解决？

菜鸟求指导，自学不容易啊~~~~