Array # and combobox problem

[beachbum]

Dim Matrix() As Variant
 
Private Sub Form_Load()
    Me.Show
    Matrix() = Array("Adam", "Diana", "Bronwyn", "Charles")
    For Counter = 0 To UBound(Matrix)
        With Combo1
            .AddItem Matrix(Counter)
            .ItemData(.NewIndex) = Counter
        End With
    Next
    
End Sub
 
Private Sub Combo1_Click()
    With Combo1
        Debug.Print Matrix(.ItemData(.ListIndex)), .ItemData(.ListIndex), .ListIndex
    End With
End Sub

Is this what u want?