Imports System

Public Module Module1

    Public Sub Main()

        dim NoP as integer 

        dim time ,miles ,Pcost ,MilesCost as decimal

        dim Totalprice as string

        console.WriteLine(" how many passengers are you booking")

        NoP=console.readline 

        console.writeline ("how far is your journey in miles")

        miles= console.readline

        console.WriteLine("what time does the journey start in 24 hour format ,max journey length 12 hours")

        time=console.ReadLine()

        MilesCost =3+2*(miles-1) 

        If NoP > 4 then   

            Pcost=(NoP-4)*2 

        Else Pcost=0 

        End if 

​

        Totalprice = MilesCost + Pcost

        If 8 > time or time < 20 then

            TotalPrice =Totalprice *2

        End If         

        Console.WriteLine(" and your total is" & Totalprice & )

    End Sub   

End Module