求vb代码！！！！！！！

Dim i As Integer
Private Sub Command1_Click()
i = Val(Label2)
i = InputBox("请输入一个整数：", "VB")
If i Mod 10 = 7 Then
MsgBox ("是")
Else
MsgBox ("否")
End If