You've got your arguments backwards.
Change This:
VAR = Application.WorksheetFunction.Find("/164", Cells(I, 2))
To This:
VAR = Application.WorksheetFunction.Find(Cells(I, 2), "/164")

peyman wrote:
hi ,
can anybody explain how I can use the loop below for "find" property in the
following code.I don't know why it can not jump to next I when "find"
property can not find the "/164" in the cells!!!????I know there are far
easier codes to do the substitution but I have to use the "find".thanx

Private Sub CommandButton4_Click()
Dim VAR As Variant
For I = 13 To 32
VAR = Application.WorksheetFunction.Find("/164", Cells(I, 2))
If VAR = 1 Then
Cells(I, 2) = Application.WorksheetFunction.Substitute(Cells(I, 2), "/164",
"")
Else
End If
Next
End Sub