Join (VB5)

' A replacement for the Join function under VB4 and VB5


Function Join(arr() As String, ByVal Delimiter As String) As String
Dim index As Long
For index = LBound(arr) To UBound(arr) - 1
Join = Join & arr(index) & Delimiter
Next
Join = Join & arr(UBound(arr))
End Function