One way you can do it is to create your own comboitem class like so:
VB Code:
Public Class clsCboItem
Public sVal As String
Public lData As Long
Overrides Function ToString() As String
Return sVal
End Function
End Class
Then when you are adding to the combo box, you do this:
VB Code:
Dim t As New clsCboItem
t.sVal = "A"
t.lData = 56
ComboBox1.Items.Add(t)
t = Nothing
t = New clsCboItem
t.sVal = "C"
t.lData = 69
ComboBox1.Items.Add(t)
MsgBox(ComboBox1.Items(0).ldata)