Need a VB function to tell me...

[LM Ginn]

If you have VB6:

dim text as string
dim ans as integer

text = "1.2.3.4"
ans = Len(text) - Len(Replace(text, ".", ""))

HTH


------------------
LM Ginn