#VALUE Error
 

I have the following code in a function but when I call it on the sheet I get
the #VALUE Error. Any direction would be greatly appreciated.

Public Function clrck(X As Double, Y As Double, Z As Double)

Dim i As Long
Dim ws1 As Worksheet

Set ws1 = Sheets("Sheet1")

For i = 1 To 10000
If ws1.Cells(i, 1).Value = "" Then
Exit For
Else
Call PinPlane(X, Y, Z, i)
Call PointLine(X, Y, Z, i)
i = i + 23
End If
Next i

X = FindValue()

clrck = X

End Function