Dim myColors As Variant
Dim myChars As String
Dim strChar As String
Dim i As Integer
Dim j As Integer
Dim lngIndex As Long
 
myColors = Array(vbRed, vbGreen, RGB(255, 255, 128))
myChars = "012"
 
boolColor = False
For i = 1 To Len(txtCode)
  strChar = Mid$(txtCode, i, 1)
  If boolColor Then
    ' lngIndex = 0                    evtl., falls ein unbekanntes Zeichen 
    ' eingegeben wird, erscheint ersatzweise die erste definierte Farbe
    For j = 1 To Len(myChars)
      If Mid$(myChars, j, 1) = strChar Then
        lngIndex = j - 1
        Exit For
      End If
    Next j
    txtColored.SelColor = myColors(lngIndex)
    boolColor = False
  Else
    If strChar = "^" Then
      boolColor = True
    Else
      txtColored.SelText = strChar
    End If
  End If
Next i
End Sub