Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim Respuesta As string = "A03120002000000037980018990"

        Dim nPosIni as integer = 0

        Dim strDatos as string = ""

        'Dim bytNumComb as byte()

        Dim productoporposicion as boolean = true

                    '' Error venta Wayne (A08120000933000010000010720•E) 

                    nPosIni = InStr(1, Respuesta, "A")

        Console.WriteLine(Respuesta)

        Console.WriteLine(nPosIni)

                    If nPosIni > 0 Then

                        Respuesta = Mid(Respuesta, nPosIni)

            Console.WriteLine("nposini > 0: " + Respuesta)

                        strDatos = Mid(Respuesta, 4)

            Console.WriteLine("nposini > 0: " + strDatos)

                    Else

                        strDatos = Mid(Respuesta, 5)

            Console.WriteLine("else: " + strDatos)

                    End If

        Dim nManguera as string = Mid(strDatos, 1, 1)

        Console.WriteLine("nmangera : "+ nManguera)

​

​

        If productoporposicion Then

                       ' bytNumComb = Bombas(nBomba).Mangueras(1).NoGasolina

            'bytNumComb = nManguera

            Console.WriteLine("bytNumbComc : "+ nManguera)

                    End If

    End Sub

End Module