Building a string from an array

I'm sure this has been done before. But I couldn't find any code samples (really!), so I wrote my own.

Here's how I build a string (for message boxes and such) from the contents of an array.

Function BuildString(arr() As Variant, Optional delimiter As String = ",") _
    As String

' loop through array and build text string consisting
' of all the array elements, delimited as specified
Dim j As Long

  For j = LBound(arr) To UBound(arr)
    BuildString = BuildString & delimiter & arr(j)
  Next j

  ' remove leading delimiter and return string
  BuildString = Right$(BuildString, Len(BuildString) - Len(delimiter))

End Function

Sample usage

Sub TestBuildString()

Dim stringArray() As Variant

  stringArray = Array("Dog", "Car", "Door")
  MsgBox BuildString(stringArray, "|")
  ' outputs Dog|Car|Door

End Sub

Now if someone could just point me to some existing code…?