Sub FirstNonZeroLength(Rng As Range)
Dim myCell As Range
myCell = Range("A1:E3")
FirstNonZeroLength = 0#
For Each myCell In Rng
If Not IsNull(myCell) And myCell <> "" Then
Debug.Print myCell.Value
Exit Function
End If
Next myCell
Debug.Print myCell.Value
End Function