Private sub combo1_click()
  select case combo1.text
  case is = "Eintrag1"
     Label1.caption="Test1"
  case is = "Eintrag2"
     Label1.caption="Test2"
  case is = "Kultstätte"  '-----> ä in der ComboBox wird a also kommt es 
  ' nicht rein 
     Label1.caption="Test3"
  end select
end sub