Prime factors Learn programming Visual Basic (VB.net)

Imports System
Public Class exercise63
    Public Shared Sub Main()
        Dim n As Integer
        Dim d As Integer = 2
        Console.Write("Enter the number: ")
        n = Convert.ToInt32(Console.ReadLine())

        While n > 1

            While n Mod d = 0
                Console.Write(d)
                Console.Write(" · ")
                n = n / d
            End While

            d += 1
        End While

        Console.Write(1)
    End Sub
End Class