МЕТОД FIND как он работает в EXcEL?

[kazah_]

есть процедура:

Private Sub Com2_Click()
If T1.Text = "" Or T2.Text = "" Or T3.Text = "" Or T4.Text = "" Then
MsgBox "Çàïîëíèòå âñå ïîëÿ!"
Exit Sub
End If
q = Sheets("New").Cells(1, 1).CurrentRegion.Rows.Count
For i = 2 To q
If C1.Value = Sheets("New").Cells(i, 1).Value Then
v = Sheets("New").Cells(i, 4).Value
a = Sheets("Price").Cells(1, 1).CurrentRegion.Rows.Count
For j = 1 To a
If v = Sheets("Price").Cells(j, 1).Value Then
x = Sheets("Price").Cells(j, 2).Value
End If
Next
Sheets("New").Cells(i, 3).Value = T2.Text
Sheets("New").Cells(i, 5).Value = Val(T2.Text) * Val(x)
End If
Next
End Sub

Как ее оформить с помощью метода FIND
или как этот метод работает?