Public Sub addToComboMaybe(ByVal item As String)
        Dim MsgBoxRes As DialogResult
        If ComboBox1.FindStringExact(item) = -1 Then
            ' usw
        Else
            ' was immer
        End If
    End Sub