vb菜鸟求助，各位大神求解

Dim Guess As Integer '定义随机数变量
Private Sub Form_Load()
Randomize '重设随机数
Label1.Caption = "你猜测的数字" '标签名
Text1.Text = ""
Command1.Caption = "确定" '按钮名
Guess = Int(Rnd * 89) + 10 '生成10~99随机数
MsgBox "生成10~99的随机数", vbDefaultButton1, "提示"
End Sub
Private Sub Command1_Click()
Static Times As Integer
If Text1 = "" Then MsgBox "你还没有输入任何内容", vbQuestion, "提示": Exit Sub '判断文本框字符是否为空
If Not IsNumeric(Text1.Text) Then MsgBox "你输入的不是数字", vbQuestion, "提示": Exit Sub '判断文本框字符是否为数字
If Val(Text1.Text) > 99 Or Val(Text1.Text) < 10 Then MsgBox "请输入指定范围内的随机数", vbDefaultButton1, "提示"
If Val(Text1.Text) <> Guess Then '判断文本框字符是否等于随机数
If Guess > Val(Text1.Text) Then '判断文本框字符大于或小于随机数
MsgBox "小了", vbQuestion, "提示"
Times = Times + 1
Else
MsgBox "大了", vbQuestion, "提示"
Times = Times + 1
End If
Text1.Text = "" '清空文本框字符
Else '否则文本框字符与随机数相等
MsgBox "恭喜你猜了" & Times & "次，终于猜对了", vbDefaultButton1, "提示"
End
End If
End Sub
'以前写的 现在看过来 晕菜了