Imports System

Public Module Module1

    Public Sub Main()

        Dim strShippingMethod As String

                Dim strDeliveryTime As String

                Dim decDeliveryCost As Decimal

​

                strShippingMethod = "Overnite"

                strDeliveryTime = "Two Day"

​

                If strShippingMethod = "Overnite" Then strDeliveryTime = "Morning" And decDeliveryCost = 29.0 Else

                decDeliveryCost = 24.0

                If strShippingMethod = "Two Days" Then

                    decDeliveryCost = 14.0

                Else

                    decDeliveryCost = 4.0

                End If

​

                Console.WriteLine("decDeliveryCost" & " D")

            'Unclear of what is being asked.

        'If Shipping method and delivery time costs should be additive or not

        'strShippingMethod and strDeliveryTime are both trying to declare the value of decDeliveryCost without arithmetic operators

        'If strShippingMethod

            Console.WriteLine("decDeliveryCost")

    End Sub

End Module