Hate strings

What´s wrong with this? I have "Firstname Lastname"

I want "Lastname" and "Firstname"


Function Manipulate_string(ByVal strName As String)


Dim str1() As String
Dim str2 As String
Dim str3() As String
Dim str4 As String
strName = Left(strName, Len(strName) - 1)

str1 = Split(strName, " ")
str2 = str1(1)

str3 = Split(str2, " ")
str4 = str3

'En msgbox för att visa hur slutresultatet blir

MsgBox (str4 + str2)
Manipulate_string = str4

End Function

what is actual content of strname (example) that is passed to function

Quote:

---

str1 = Split(strName, " ")
str2 = str1(1)

str3 = Split(str2, " ")
str4 = str3

---

as str2 is an element of str1, which an array split on spaces, str2 can not contain a space to be split on, so str3 is an array of 1 element, the the same content as str1(1), str4 is another array of 1 element
the msgbox should error (type mismatch) as it can not accept an array

Is this what you are trying?

Code:

---

Option Explicit

Private Sub CommandButton1_Click()
    Dim strSampleName As String
   
    strSampleName = "Firstname Lastname"
    'strSampleName = "Firstname MiddleName Lastname"
   
    MsgBox Manipulate_string(strSampleName)
End Sub

Function Manipulate_string(ByVal strName As String)
    Dim strArray() As String, i As Long
   
    strArray = Split(strName, " ")
   
    For i = UBound(strArray) To LBound(strArray) Step -1
        Manipulate_string = Manipulate_string & " " & strArray(i)
    Next
   
    Manipulate_string = Trim(Manipulate_string)
End Function

---

Edit: lolzzz Pete... you beat me to it again...