Imports System

Public Module Module1

    Public Sub Main()

        'noofpassengers is the number of passengers required for taxis 

        Dim noofpassengers As Integer

        Dim charge As Decimal

        'charge is the cost of passengers taking a ride on taxis

    End Sub

End Module