Dim TestVariant as Variant ...
    TestVariant = Array("A;Item 1", "B;Item 2")
    With Me.cboCat
        For intI = 0 To UBound(TestVariant)
            Values = Split(TestVariant(intI), ";")
            .AddItem Values(1)
            .ItemData(.NewIndex) = CStr(Values(0))
            '.ItemData(.NewIndex) = Values(0) <-- verursacht nachher beim 
            ' Auslesen Absturz
        Next intI
        For intI = 0 To .ListCount - 1
            If .ItemData(intI) = "A" Then
                .SetListIndex intI
                Exit For
            End If
        Next intI
    End With