For i = 1 To 5
Trim (Vsearch & i)
Next i
does not do what you think it is doing.
There is no variable called Vsearch, and VB will not add the variable i to the end and 'know' that you mean Vsearch1
Also Trim is a funtion, it returns the trimmed value, rather than changing the passed item directly
If Vsearch was an array, you could use something like
For i = 1 To 5
Vsearch(i) = Trim (Vsearch(i))
Next i
but you are probably best just ditching that bit of code, and doing this:
cboSearch(0).AddItem trim(VSearch1)
cboSearch(0).AddItem trim(VSearch2)
cboSearch(0).AddItem trim(VSearch3)
cboSearch(0).AddItem trim(VSearch4)
cboSearch(0).AddItem trim(VSearch5)
By the way, if you put Option Explicit at the very top of your code module, V would have pointed out the missing variable VSearch for you automatically.
Hope this helps!