ok, i have a combo box that has some stuff in the list that has
a descriptions, then bunch of spaces and an ip address, basicly u pull down the combo box and click the descriptions, and i want the ip to go in for the text, but my code doesnt work, the combobox text always ends up blank

here is my code, this code worked when i replaced myBLAH with like text1.text or somthing

Private Sub Combo1_Click()
Dim myBLAH As String
Debug.Print Trim$(Right$(Combo1.List(Combo1.ListIndex), 50))
myBLAH = Trim$(Right$(Combo1.List(Combo1.ListIndex), 50))
Combo1.Text = myBLAH
End Sub

when i debug it, it goes in there on the combo1.text = myBLAH, but then as soon as it hits end sub combo1.text goes blank