feel free to use! Function getCountCSV(ByVal list As String) As String Dim number As Integer number = 0 While Len(list) 0 Call getNextCSV(list) number = number + 1 Wend getCountCSV = numberEnd FunctionFunction getNextCSV(list As String) As String Dim commaPosition