No Thanks, I’ll Be Having the Crow

File this under reason 467 why I don’t make my living as a full time developer.

Yesterday I posted some code for parsing out a comma delimited text field, such as a multi-value enterprise field in Project Server 2007.

Today a real developer pointed out that there is a function that does the same thing as my code. DOH!

So here is the new code, most of which is just there to display the results of the function.

Sub Doh()
Dim count As Long

Dim Values As Variant

Values = Split(ActiveProject.Tasks(1).Text1, ",")

'just for display
For count = 0 To UBound(Values)
Debug.Print Trim(Values(count))
Next count
End Sub