NumberOfCommas = Len(aString) - Len(Replace(aString, ",", vbNullString))