'jetzt durchläuftst du das array
 
Private Enum BAR
Lücke_schmal '= 0
Lücke_Breit '=00
Strich_schmal '= 1
strich_breit '= 11
End Enum
 
Dim bars() As BAR
ReDim bars(0)
Dim last As BAR
 
last = IIf(Barcode(LBound(Barcode)) = 1, 2, 0)
 
For i = LBound(Barcode) + 1 To UBound(Barcode)
 
If Barcode(i) = 1 Then
 
 If last <> Strich_schmal And last <> strich_breit Then
 ReDim Preserve bars(UBound(bars) + 1)
 bars(UBound(bars)) = last
 last = Strich_schmal
 ElseIf last = Strich_schmal Then
 last = strich_breit
Else
Err.Raise 1
 End If
 
ElseIf Barcode(i) = 0 Then
 If last <> 0 And last <> 1 Then
 ReDim Preserve bars(UBound(bars) + 1)
 bars(UBound(bars)) = last
 last = Lücke_schmal
 ElseIf last = 0 Then
  last = Lücke_Breit
 Else
Err.Raise 1
End If
 
End If
 
Next