Structure mole game

Module Module1
    Dim board(9, 9) As Char
    Dim GuessX, GuessY As Integer
    Dim MoleX, MoleY As Integer
    Dim hit As Boolean
    Sub Main()
        setupBoard()
        displayBoard()
        Do While Not hit
            guess()
            assessHit()
            displayBoard()
        Loop
        Console.ReadKey()
    End Sub
    Sub guess()
        Console.WriteLine("please enter X coordinates")
        GuessX = Console.ReadLine()
        Console.WriteLine("please enter Y coordinates")
        GuessY = Console.ReadLine()





    End Sub
    Sub assessHit()
        If GuessX = MoleX And GuessY = MoleY Then
            hit = True
            board(4, 7) = "m"
        Else
            board(GuessX, GuessY) = " "
        End If







    End Sub
    Sub setupBoard()
        For i = 0 To 9
            For j = 0 To 9
                board(i, j) = "*"
            Next
        Next
        MoleX = 4
        MoleY = 7
    End Sub
    Sub displayBoard()

        For i = 0 To 9
            For j = 0 To 9
                Console.Write(board(i, j))
            Next
            Console.WriteLine()
        Next
    End Sub
    Sub biggestnum()

        Dim numbers(5) As Integer
        Console.WriteLine("please enter 5 numbers...")
        For i = 1 To 5
            numbers(i) = Console.ReadLine()
        Next

    End Sub
End Module