For some reason I don't have the OFfice stuff installed So I cant test the code.
Your code looks like your skipping a couple of steps.
First you need to get the column, then compare each cell in the column to the given text if true then add 1 to the counter if false then move to the next cell
Something like
Dim textToSearchfor as string
textToSearchfor = iinputTextbox.text
Dim Counter as Integer
Counter = 0
For each cell in ColumnX
If currcell.Contains(textToSearchfor.tostring)
Counter add1
Next
Mgsbox(counter.tostring)
Hope this is somewhat helpful