Private Sub Form_Load()
Combo1.AddItem "extrem wichtig"
Combo1.AddItem "sehr wichtig"
Combo1.AddItem "egal oder auch nicht"
End Sub
 
Private Sub List1_Click()
If InStr(UCase(List1.Text), "EXTREM WICHTIG") Then Combo1.Text = "extrem" & _
  "wichtig"
If InStr(UCase(List1.Text), "SEHR WICHTIG") Then Combo1.Text = "sehr wichtig"
If InStr(UCase(List1.Text), "EGAL ODER AUCH NICHT") Then Combo1.Text = "egal" & _
  "oder auch nicht"
Combo1_Click 
End Sub