Module Module1
    Sub Main()
        Dim d1, d2 As Double
        d1 = 14 Mod 7
        d2 = 6 Mod 7

        Console.WriteLine("d1 = " & d1 & ", d2 = " & d2)

        If (d1 = 0 And d2 = 0) Then
            Console.WriteLine("True")
        Else
            Console.WriteLine("False")
        End If

        Console.ReadLine()
    End Sub
End Module