Counting | using VBA

[Stephen_IV]

I have benn trying to figure this out but to no avail. I know that you can use the split function but I am stuck. Can anyone please help me out???

Thanks in advance Stephen

Book1
	A	B	C	D
1	9|10|11|12|1	5
2	11|12|1|2|3|4	6
Sheet1

 

[jindon]

Hi

Function stephen(txt As String) As Long
Dim x, i As Long
x = Split(txt, Chr(124))
For i = 0 To UBound(x)
    If Not IsEmpty(Trim(x(i))) And _
        IsNumeric(Trim(x(i))) Then _
        stephen = stephen + 1
Next
End Function