Module VMTSQuery

    Sub Main()
        ' Query user ID and store in string variable
        Console.WriteLine("User ID : ")
        Dim ws_UserID As String = Console.ReadLine()


        ' Access Web Services "VehicleQuery" Method
        Dim ws As New VMTSVehicleQuery.NcgDemoService1

        ' Display returned user vehicle number
        Console.WriteLine("Default Vehicle = ")
        Console.WriteLine(ws.GetVehicle(ws_UserID))
        Console.ReadLine()
    End Sub

End Module