Checking List Box Value with Combo box selection

[empyrean]

Hi

I have a combo box with some values, when i select the data in the box it should check with the data present in the list box if it did not find its duplicate then the list box should take this value and if it finds the value if should pop up a msg box saying duplicate value found.



Can anyone help me in this?

[empyrean]

I tried this but still not working


Private Sub CommandResult_Click()
Dim varItm As Variant
Dim duplicate As Boolean

Dim intY As Long

'~~> Loop through List
For intY = 0 To ListAliasInformation.ListCount - 1
'~~> Check if Combo Value exists in list
If ListAliasInformation.ItemData(intY) = ComboCheck.Value Then
'~~> If found, Inform User
MsgBox ComboCheck.Value & " Already Exits in list"
duplicate = True
Exit Sub

End If
Next intY
'~~> Add Item to List
' ListAliasInformation.AddItem ComboCheck.Value

If Not duplicate Then
Me.ListAliasInformation.AddItem (Me.ComboCheck.Value & ";" & Me.ListAlias.Value)
End If
End Sub