In that context:

Columns(Me.TBCOL.Text).Find(etc)
would suffice

FWIW if you need the column number far quicker to use something like:

ColNumber = Range(ColNum & "1").Column