Hi,

Code:
Dim Code(1) As Byte
Dim Pass(1) As Byte


Dim Pass = 5
Dim Code = 0
du brauchst die Variablen nur einmal zu definieren, bei den restlichen kannst du ruhig das "Dim" weglassen. Warum definierst du eig "Code" und "Pass" als Arry, die "(1)" kannste bei beiden Variablen auch weglassen.

Code:
If Dim Code = 0 Then
  Rot = 1
Else
  Rot = 0
End If


If Dim Code = 0 Then
  Gelb = 0
Else
  Gelb = 1
End If
Das kannst du alles in einer IF Abfrage machen weil du ja beidesmal auf Code=0 abfrägst und auch ohne "Dim" also so:
Code:
If Dim Code = 0 Then
  Rot = 1
  Gelb=0
Else
  Rot = 0
  Gelb=1
End If
Gruß Kalle