integer division in vb

Sub Main()
    Dim var1 As Integer = 17
    Dim var2 As Integer = 4
    Dim resDiv As Integer = var1 / var2 ' resDiv=4
    Dim resMod As Integer = var1 Mod var2 ' resMod=1
End Sub

Module Division
    Sub Main()
        Dim var1 As Integer
        Dim var2 As Integer
        Console.WriteLine("Enter the first number:")
        var1 = CInt(Console.ReadLine)
        Console.WriteLine("Enter the second number:")
        var2 = CInt(Console.ReadLine)
        DivMod(var1, var2)
        Console.Read()
    End Sub
    Sub DivMod(ByVal v1 As Integer, ByVal v2 As Integer)
        Dim divRes As Integer = v1 / v2
        Dim modRes As Integer = v1 Mod v2
        Console.WriteLine(String.Format("Division Result:{0} and Remainder Result:{1}", divRes.ToString, modRes.ToString))
    End Sub
End Module