With Worksheets("onderhoud")
    i = 1
    Do
    c = .Range("B" & i & ":B63000").Find("Wasstraat", LookIn:=xlValues, _
    lookat:=xlWhole, MatchCase:=False).row
    Set RangeAI = .Range("A" & c)
    Me.CBox1.AddItem RangeAI.Text
    Me.CBox4.AddItem c
    i = c + 1
    MsgBox (RangeAI)
    Loop Until c = "nothing"
End With


now I have 4 items first located in B1, and it finds only 3 of them, not the one in B1 plus when it has found all three it gives me an error.

TIA
frank