Run-time error 2147024809

[josros60]

I have a user form with list box at the bottom and when i click in a record in list box i get this error:

run-time error '-2147024809 (80070057) Could not find the specified error
message says: Could not find specified error,


and when click debug goes this part of the code:

Private Sub ContactForm_Click()
Dim say As Long, a As Byte

For a = 0 To 11
Controls("textbox" & a + 1) = ContactForm.Column(a)
Next

Sheets("ContactsInvoicing").Range("A:A").Find(ContactForm.Text).Activate
say = ActiveCell.Row
Sheets("ContactsInvoicing").Range("A" & say & ":L" & say).Select
TextBox15 = ContactForm.ListIndex + 1

and highlight in yellow this part of the code:

Controls("textbox" & a + 1) = ContactForm.Column(a)

hope somebody can help me in this please, just about finishing but I am stuck here.

Thanks.

 

[kevlray]

I had not used list boxes in a long time so I had to do some research.
Controls("textbox" & a+1) = ContactForm.Column(a) should be
Controls("textbox" & a+1) = ContactForm.List(a)

 

[josros60]

Thanks.

I tried:

 Controls("textbox" & a + 1) = ContactForm.Column(a)

but still getting same error.

any other suggestion?

thanks again.