Function write centered Learn programming Visual Basic (VB.net)

Imports System
Public Class exercise101
    Public Shared Sub WriteCentered(ByVal text As String)
        Dim i As Integer = 0

        While i < 17
            Console.WriteLine()
            i += 1
        End While

        For i = 0 To 36 - 1
            Console.Write(" ")
        Next

        Console.Write(text)

        For i = 0 To 14 - 1
            Console.WriteLine()
        Next
    End Sub

    Public Shared Sub Main()
        WriteCentered("Hello")
    End Sub
End Class