Option Explicit 
'Author: Nguyen Duy Tuan - http://bluesofts.net
'VBA ProgrammingFunction a2t(arr, Optional ByVal Delimiter As String = ",")
Function a2t(arr, Optional ByVal Delimiter As String = ",") 
   Dim a 
   If IsArray(arr) Then 
      For Each a In arr 
         If Len(a2t) = 0 Then 
            a2t = a 
         Else 
            a2t = a2t & Delimiter & a 
         End If 
      Next 
   Else 
      a2t = arr 
   End If 
End Function 
'------------------------------------------------------------------------------------
Function T2A(ByVal Text As String, Optional ByVal Delimiter As String = ",") 
   T2A = Split(Text, Delimiter) 
End Function