Excel VBA

' Excel Join String
Function STR_JOIN(arg1 As range, Optional seperator As String = ",") As String
    Dim statement As String
    Dim last_index As Integer
    Dim index As Integer

    ' Find Total Records
    last_index = arg1.Count - 1

    ' Reset Index to Zero
    index = 0

    For Each elem In arg1

        If index = last_index Then
            statement = statement + elem.Value
        Else
            statement = statement + elem.Value + Trim(seperator)
        End If

        index = index + 1
    Next elem

    STR_JOIN = statement
End Function

' Remove Space From String
Function SPACE_REMOVE(Txt As String) As String
    With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "\D"
    SPACE_REMOVE = .Replace(Txt, "")
    End With
End Function