Sub barcode_onBarcodeResult(success As Boolean, info As String, result As List)
Dim lResult As String
Dim lResult2 As String
Dim lResult3 As String
Dim lBarcodeResult As String
Dim lBarcode As String
Dim lCode As String
If (success=True) Then
For forcount=0 To result.Size-1
lResult=result.Get(forcount)
lResult2=GlobalFunctions.Right(lResult,lResult.Length-9)
lResult3=GlobalFunctions.Left(lResult2,lResult2.Length-1)
Dim lList() As String
lList=GlobalFunctions.split(lResult3,",")
If lList(0).StartsWith("displayValue=") Then
lBarcodeResult=GlobalFunctions.Right(lList(0),lList(0).Length-13)
lCode=GlobalFunctions.Left(lBarcodeResult,1)
lBarcode=GlobalFunctions.Right(lBarcodeResult,lBarcodeResult.Length-1)
End If
Next
End If
End Sub