Dim CEL As Range
Set CEL = Worksheets("Test").Columns(1).Find(Me.TextBox1.Value, , xlValues, xlWhole)
If Not CEL Is Nothing Then TextBox2.Value = CEL.Offset(0, 2).Value
Dim CEL As Range
Set CEL = Worksheets("Test").Columns(1).Find(Me.TextBox1.Value, , xlValues, xlWhole)
If Not CEL Is Nothing Then TextBox2.Value = CEL.Offset(0, 2).Value