Rectángulo hueco Ejercicio VB.Net - Curso de Programación Visual Basic

Imports System
Public Class exercise42
    Public Shared Sub Main()
        Dim row, column As Integer
        Console.Write("Enter a symbol: ")
        Dim symbol As Integer = Convert.ToInt32(Console.ReadLine())
        Console.Write("Enter the desired width: ")
        Dim width As Integer = Convert.ToInt32(Console.ReadLine())
        Console.Write("Enter the desired height: ")
        Dim height As Integer = Convert.ToInt32(Console.ReadLine())
        Console.WriteLine()

        For row = 1 To height

            For column = 1 To width

                If (row = 1) OrElse (row = height) Then
                    Console.Write(symbol)
                Else

                    If (column = 1) OrElse (column = width) Then
                        Console.Write(symbol)
                    Else
                        Console.Write(" ")
                    End If
                End If
            Next

            Console.WriteLine()
        Next
    End Sub
End Class