kode karcis barcode (Left Right Mid) Pada VB.NET 2005 Console Application

kode karcis kereta (Left Right Mid) barcode Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim jkereta, kkarcis, kkereta, kusia, nog, nb, jn As String
        Dim hrg, hb, dc As Double
A:      Console.Clear()
        WriteLine("Contoh kode karcis : ")
        WriteLine("BL1020,BA1020,BD1020,EL1020,EA1020,ED1020,XA1020,XD1020,XL1020")
        WriteLine()
        Write("Masukan kode karcis  : ")
        kkarcis = UCase(ReadLine())
        kkereta = Microsoft.VisualBasic.Left(kkarcis, 1)
        kusia = Microsoft.VisualBasic.Mid(kkarcis, 2, 1)
        nog = Microsoft.VisualBasic.Mid(kkarcis, 3, 2)
        nb = Microsoft.VisualBasic.Right(kkarcis, 2)
        If kkereta = "B" Then
            jkereta = "Bisnis"
            hrg = 150000
        ElseIf kkereta = "E" Then
            jkereta = "Ekonomi"
            hrg = 50000
        ElseIf kkereta = "X" Then
            jkereta = "Executive"
            hrg = 175000
        Else
            jkereta = "salah isi"
            hrg = 0
        End If
        If kusia = "L" Then
            jn = "Lansia"
            dc = hrg * 0.2
        ElseIf kusia = "D" Then
            jn = "Dewasa"
            dc = 0
        ElseIf kusia = "A" Then
            jn = "Anak-anak"
            dc = hrg * 0.3
        Else
            dc = 0
        End If
        hb = hrg - dc
        WriteLine("-------Detail karcis-----")
        WriteLine("jenis kereta   : " & jkereta)
        WriteLine("jenis penumpang: " & jn)
        WriteLine("nomor gerbong  : " & nog)
        WriteLine("nomor bangku   : " & nb)
        WriteLine("harga karcis   : " & hrg)
        WriteLine("discount       : " & dc)
        WriteLine("harga Byar     : " & hb)

        Console.WriteLine()
        Console.WriteLine("----------------------------------------")


        Console.Write("Ulangi lagi? (Y/T): ")
        Dim xUlang As String
        xUlang = Console.ReadLine()
        Select Case UCase(xUlang)
            Case "Y"
                GoTo A
            Case Else
                Console.Write("Terima Kasih")
                Console.ReadLine()
        End Select
    End Sub

End Module

Hasilnya :