Dim strKategorie as String
 
strKategorie = txtKategorie.Text
 
   Select Case strKategorie
 
      Case "EK"
         txtX.BackColor = vbGreen
      Case "NK"
         txtX.BackColor = vbBlue
      Case "OEM"
         txtX.BackColor = vbYellow
      Case "V"
         txtX.BackColor = ' Hier weiß ich die 'vbFarbe' nicht, müsste also der 
         ' Farbwert stehen (123786544)
      'usw.
   End Select