Combine Found Row Number With Column Letter To Become Range And Then Count

I am having troubles finding a row number, using it to specify a range and then counting the cells containg values in that range.

This is what I have

Code:
Private Sub TextBox1_Change()
Dim test1 As String
Dim FoundRom As Range
Dim i as String
Dim abc1 As Range
Dim Core1 As String

test1 = TextBox1.Value

[Code] ........

I am thinking that I have my "Dim"'s wrong or something but I cant figure out how to define the range including the found row number and then count the number of cells containing data within that range...