Square Learn programming Visual Basic (VB.net)

Imports System
Public Class exercise34
    Public Shared Sub Main()
        Dim n As Integer
        Dim row, column As Integer
        Console.Write("Enter a number: ")
        n = Convert.ToInt32(Console.ReadLine())
        Console.Write("Enter the desired: ")
        width = Convert.ToInt32(Console.ReadLine())
        row = 0

        While row
            column = 0

            While column
                Console.Write(n)
                column += 1
            End While

            Console.WriteLine()
            row += 1
        End While
    End Sub
End Class