Show search results in Userform

I made a userform where i like to search in a drop down list for a "KKS" and when selected a "KKS" the info "KKS benaming", "Gecre?erd door" and "Omschrijving" is given.

I tried to make a code to only show non empty cells in de KKS droplist. This isn't working. I don't know why?

I tried this but somehow the is an error in Me("Textbox" & p)...... line?

Private Sub ComboBox1_Change()
Dim q, p As Long

q = Application.WorksheetFunction.CountA(Blad1.Range("B:B"))

For p = 1 To 3
Me("Textbox" & p).Value = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1.Value), Blad1.Range("B" & 2, "p" & q), p + 1, 0)

Next p


End Sub

This is enough (first empty the rowsource property of your combobox)

Private Sub UserForm_Initialize()
ComboBox1.List = Filter([transpose(if(LOTOTO<>"",LOTOTO))], False, 0)
End Sub

Thanks all!

Someone knows how te do this with a Textbox?

    Dim i As Integer
    For i = 1 To 7
    
    With ListBox1
        TextBox(4 + i).Text = .List(.ListIndex, 0 + i)
       
    End With