You could put the status description in another column of the combobox:
Private Sub CommandButton1_Click()
MsgBox "You picked " & ComboBox1.Column(0) & " and the text associated with this item is " & ComboBox1.Column(1)
End Sub
Private Sub UserForm_Initialize()
Dim lngIndex As Long
Dim A() As String, B() As String
A = Split("Data1,Data2,Data3,Data4,Data5,Data6", ",")
B = Split("AAA,BBB,CCC,DDD,EEE,FFF", ",")
For lngIndex = 0 To UBound(A)
With ComboBox1
.AddItem
.List(.ListCount - 1, 0) = A(lngIndex)
.List(.ListCount - 1, 1) = B(lngIndex)
End With
Next
End Sub