/ Snippet Library - View Code

Snippet details

ID: 441

Viewed: 1359

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

A replacement for the Join function under VB4 and VB5

Joins text

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllFunction 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

No Reviews to show