很简单的VB程序设计问题 帮我优化一下程序

Private Sub Form_load()
Dim no As Long, name As String
no = InputBox("请输入您的学号;", "输入学号", 2009)
name = InputBox("请输入您的名字;", "输入名字")
MsgBox "我的学号是:" & nub & Chr(13) + "我的名字是:" & name, vbOKOnly + vbInformation, "感谢合作"
End Sub

问题： 《输入学号》窗体的“取消”按钮不可用 帮我优化下 谢谢

判断是否为空就行了：

Private Sub Form_load()
Dim no As String, name As String
no = InputBox("请输入您的学号;", "输入学号", 2009)
If no = vbNullString Then Exit Sub

name = InputBox("请输入您的名字;", "输入名字")
If name = vbNullString Then Exit Sub

MsgBox "我的学号是:" & nub & Chr(13) + "我的名字是:" & name, vbOKOnly + vbInformation, "感谢合作"
End Sub