ItemCombo

'AddComboItem

Public Sub AddComboItem( _
cboAdd As ComboBox, _
ByVal sText As String, _
ByVal lData As Long)
cboAdd.AddItem sText
cboAdd.ItemData(cboAdd.NewIndex) = lData
End Sub

'CurrComboData

Public Function CurrComboData( _
cbo As ComboBox) As Long
If cbo.ListIndex <> -1 Then
CurrComboData = cbo.ItemData(cbo.ListIndex)
Else
CurrComboData = -1
End If
End Function