Muchas divisiones Aprende programación con ejercicios Visual Basic (VB.net)

Imports System
Public Class Exercise32
    Public Shared Sub Main()
        Dim num1, num2 As Integer

        Do
            Console.Write("First number? ")
            num1 = Convert.ToInt32(Console.ReadLine())

            If num1 <> 0 Then
                Console.Write("Second number? ")
                num2 = Convert.ToInt32(Console.ReadLine())

                If num2 = 0 Then
                    Console.WriteLine("Cannot divide by 0")
                    Console.WriteLine()
                Else
                    Console.WriteLine("Division is {0}", num1 / num2)
                    Console.WriteLine("Remainder is {0}", num1 Mod num2)
                    Console.WriteLine()
                End If
            End If
        Loop While num1 <> 0

        Console.WriteLine("Bye!")
    End Sub
End Class