Invert String In Cell

Function dirk(txt As String) As String
Dim i, a, temp
a = Split(txt, delim)
For i = UBound(a) To LBound(a) Step -1
    temp = temp & Trim(a(i)) & " " & delim & " "
Next
dirk = Left(temp, Len(temp) - 2)
End Function

Public Function foobar(ByRef strIn As String) As String
Dim tmpArr() As String
tmpArr = Split(Range("a1").Value)
Call Reverse(tmpArr)
foobar = Join(tmpArr, " ")
End Function


Public Sub Reverse(ByRef lParams() As String)
Dim i As Long, tmp As String
For i = 0 To UBound(lParams) / 2 - 1
    tmp = lParams(i)
    lParams(i) = lParams(UBound(lParams) - i)
    lParams(UBound(lParams) - i) = tmp
Next i
End Sub

Public Function foobar(ByRef strIn As String) As String
Dim tmpArr() As String
tmpArr = Split(strIn)
Call Reverse(tmpArr)
foobar = Join(tmpArr, " ")
End Function


Public Sub Reverse(ByRef lParams() As String)
Dim i As Long, tmp As String
For i = 0 To UBound(lParams) / 2 - 1
    tmp = lParams(i)
    lParams(i) = lParams(UBound(lParams) - i)
    lParams(UBound(lParams) - i) = tmp
Next i
End Sub