Attribute VB_Name = "udf_concatWs"
'-------------------------------------------------------------------------------
'File         : udf_concatWs.bas
'               Copyright mpl by ERB software
'               All rights reserved
'               http://wiki.yaslaw.info/dokuwiki/doku.php/vba/functions/concat_ws
'Environment  : VBA 2010 +
'Version      : 1.0
'Name         : list
'Author       : Stefan Erb (ERS)
'History      : 27.02.2014 - ERS - Creation
'-------------------------------------------------------------------------------
Option Explicit

'/**
' * Fügt mehrere Elemente mit einem Trennstring zu einem String zusammen
' * @param  Variant         Delemiter
' * @param  ParamArray      Die verschiedenen Elemente
' * @return String
' */
Public Function concatWs( _
        ByVal iDelemiter As Variant, _
        ParamArray items() As Variant _
) As String
    concatWs = Join(items, CStr(iDelemiter))
End Function