Imports System

Public Module Module1

    Public Sub Main()

        Dim intNumberItems as Integer

        Dim decShoppingAmount as Decimal = 100.0

        Dim DecTotalCost as Decimal = 7

        Dim strTxt as String  

        if intNumberItems > 5 or DecShoppingAmount > 100 then

            strTxt = "Free shipping"

        else 

            DecTotalCost = (intNumberItems * 5 / DecShoppingAmount)

            Console.Write(decTotalCost.ToString())

        end IF

    End Sub

End Module