例: Implode function

Dim A(2) As String
A(0) = "one"
A(1) = "two"
A(2) = "three"
Sub Initialize
   Dim ret As String
   Dim delim As String	'this is the delimiter
   delim = "-"
   ret = implode(A, delim)
   Print ret
End Sub 
'Output:
'one-two-three