que yo sepa no hay una función que haga eso
aqui hay algo
crea un boton y le pones este codigo para provarlo (el resultado queda en la variable str3)
Private Sub Command1_Click()
str1 = "hola"
str2 = "como como"
Datos = Split(str2, " ")
For i = 0 To UBound(Datos)
Select Case i
Case 0
parte1 = Datos(i)
Case 1
parte2 = Datos(i)
End Select
Next
str3 = parte1 & " " & str1 & " " & parte2
MsgBox str1
MsgBox str2
MsgBox str3
End Sub
Hay mil formas de hacer las Cosas
