arkadaşa özel mesaj olarak da attım ihtiyacı olanların da faydalanabilmesi için buraya da yazıyorum.
bitane combobox bir tane de label ekle isimleri combobox1 ve label1 olmak üzere:

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = 0 Then
Label1.Caption = "1.seçenek"
ElseIf ComboBox1.ListIndex = 1 Then
Label1.Caption = "2.seçenek"
ElseIf ComboBox1.ListIndex = 2 Then
Label1.Caption = "3.seçenek"
ElseIf ComboBox1.ListIndex = 3 Then
Label1.Caption = "4.seçenek"
ElseIf ComboBox1.ListIndex = 4 Then
Label1.Caption = "5.seçenek"
ElseIf ComboBox1.ListIndex = 5 Then
Label1.Caption = "6.seçenek"
ElseIf ComboBox1.ListIndex = 6 Then
Label1.Caption = "7.seçenek"
End If
End Sub

Private Sub UserForm_initialize()
ComboBox1.AddItem "a"
ComboBox1.AddItem "b"
ComboBox1.AddItem "d"
ComboBox1.AddItem "e"
ComboBox1.AddItem "k"
ComboBox1.AddItem "l"
ComboBox1.AddItem "m"
End Sub