Function test(a As String, b() As String) As String
Dim i As Long, s As String
For i = LBound(b) To UBound(b)
s = s + b(i)
Next
test = s + a
End Function
Private Sub Test()
Dim marray() As String
marray = Split("hello ,welcom ,you-", ",")
MsgBox test("boy", marray)
End Sub