Func Excel

Function Daohoten(Hoten As String) As String
  Dim Temp, i As Long
  Temp = Split(WorksheetFunction.Trim(Hoten), " ")
  For i = UBound(Temp) To 0 Step -1
    Daohoten = Trim(Daohoten & " " & Temp(i))
  Next
End Function