Dim i As Integer
        Dim Eintrag As String
        Dim Existiert As Boolean
 
        For i = 0 To cmbEmpfaenger.Items.Count - 1
            Eintrag = cmbEmpfaenger.Items.Item(i)
 
            If (cmbEmpfaenger.Text.ToString = Eintrag) Then
                MsgBox("Existier schon!")
                Existiert = True
            Else
                Existiert = False
            End If
            i = i + 1
        Next