Android Question How to read Data USB QR Code Reader

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals
    Private EditText1 As EditText
    Private Label2 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)

    Activity.LoadLayout("Layout")
End Sub

Sub EditText1_EnterPressed
    check_barcode
End Sub

Sub check_barcode
    Dim Code As String
    Code = EditText1.Text
    If Code.Length = 13 Then ' EAN13
        Label2.Text = Code
    End If
End Sub