Hate strings

[hannah__hhh]

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

[westconn1]

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

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

[Siddharth Rout]

Is this what you are trying?

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...