Imports System

Public Module Module1

    Public Sub Main()

        Dim total As Integer

        Console.WriteLine("Please enter the total:")

        total = Console.ReadLine()

        total = total \ 3

        Console.WriteLine("The total is " & total)

    End Sub

End Module