新手编程代码有错误，求指导

初学VB，运行的时候老是显示错误，也不指导错在哪里，求指导。
Module Module1
    Sub Main()
        Dim x As Single
        Dim y As Single
        Dim a As Boolean
        Dim b As Boolean
        a = True
        b = False
        x = InputBox("请输入横坐标:")
        y = InputBox("请输入纵坐标")
        If x >= -2 And x <= 2 And y >= -2 And y <= 2 Then
            Print(a)
        Else
            Print(b)
        End If
    End Sub
End Module