CrvCheck

Function CrvCheck(SampleCrv As Variant) As Boolean

On Error GoTo Blast2 

Dim CMeas
Set CMeas = TheSPAWorkbench.GetMeasurable(SampleCrv) 

Dim ALen As Double
ALen = CMeas.Length
CrvCheck = True
Exit Function
Blast2:
CrvCheck = False
End Function