userform - med 2 textboxe hvor valget i den ene har konsekvenser

Hvis du nu tager listen  ind i din listboks med de 2 kolonner du har

Navn og telefon.

Man kan jo godt have kolonner i en listboks.

Properties for listboksen, ColumnWidths sættes til f.eks 10;0'
det gør at kolonnen med telefon numre ikke ses.

koden under listboksen er:

Private Sub ListBox1_Click()
Me.TextBox1 = ListBox1.Column(1)
End Sub

Min kode er ikke opbygget med en liste i arket. Den er opbygget som vist nedenfor. Jeg skal blot have linket mellem CmbName og

Open Explicit

Private Sub cmdgem_Click()
Me.Hide
End Sub

Private Sub CmbName_Change()

If CmbName = "A" Then txttlf = "xx xx xx xx"
If CmbName = "B" Then txttlf = "yy yy yy yy"
If CmbName = "C" Then txttlf = "zz zz zz zz"
If CmbName = "D" Then txttlf = "aa aa aa aa"
End Sub

Hvad gør jeg?
Sub userform_Initialize()

    ' valgmuligheder i listeboxen
    CmbNavn.AddItem "A"
    CmbNavn.AddItem "B"
    CmbNavn.AddItem "C"
    CmbNavn.AddItem "D"
     
    CmbNavn = "A"
    txttlf = "xx xx xx xx"
     
End Sub

Problemet løst - forskel i navnet CmbNavn og CmbName - øv.