mkString in Visual Basic

mkString.vba

Function mkString(mid As String, arg As Range) As String

  Dim c As Range, ans As String
  For Each c In arg
    ans = ans & c.Text & mid
  Next c

  mkString = left(ans, Len(ans) - len(mid))

End Function

Function mkString2(l As String, mid As String, r As String, arg As Range) As String

  Dim c As Range, ans As String
  For Each c In arg
    ans = ans & c.Text & mid
  Next c
  
  mkString2 = l & left(ans, Len(ans) - len(mid)) & r

End Function