Private Sub Form_Load()
 
       Combo.AddItem "Beispiel1"
 
End Sub

Private Sub Combo1_Click()
 
Select Case Combo1
    Case "Test1"
        MsgBox "Prima"
End Select
 
End Sub

Private Sub Form_Load()
 
       Combo1.AddItem "Deutsch"
       Combo1.AddItem "German"
 
End Sub

Private Sub Combo1_Click()
 
Select Case Combo1
    Case "Deutsch"
        MsgBox "Deutsch"
    Case "German"
        MsgBox "German"
End Select
 
End Sub