Поменять местами имя и фамилию, результат вывести на экран.

Dim sl(10)  As String, ss As String ' описание переменных
Dim i As Integer, k  As Integer
 
 
' вводим массив в диалоге
For i = 1 To 10
  sl(i) = InputBox("Cлово " & Str(i) & " = ")
  Worksheets(1).Cells(i, 1) = sl(i)
Next i
 
' сортируем массив медленным, но верным способом
Do
k = 0
For i = 2 To 10
  If sl(i) < sl(i - 1) Then
    ss = sl(i)                  ' меняем местами слова
    sl(i) = sl(i - 1)
    sl(i - 1) = ss
    k = k + 1
  End If
Next i
Loop While k > 0
 
' выводим отсортированный массив на лист Excel
For i = 1 To 10
  Worksheets(1).Cells(i + 12, 1) = sl(i)
Next i
End Sub

Function swap(s As String) As String
L = Len(s)
 
Dim Name As String, Family
   Dim k As Integer
   k = InStr(1, s, " ")
   Name = Left(s, k - 1)
   Family = Right(s, L - k)
  swap = Family + "  " + Name
End Function

Function f(s As String) As String
If InStr(1, s, " ") > 0 Then
Do While InStr(1, s, "  ") > 0
s = Replace(s, "  ", " ")
Loop
a = Split(s, " ")
f = a(1) & " " & a(0)
Else
f = s
End If
End Function

Sub one()
Dim a(10) As String
Dim s As String
For i = 0 To 9
a(i) = InputBox("Введите имя, фамилию и нажмите  OK")
a(i)=swap(a(i) )
Next
For i = 0 To 9
s = s + a(i) + vbCrLf
Next
MsgBox (s)
End Sub

Sub Task()
'Â êîìïüþòåð ïîñëåäîâàòåëüíî ââîäÿòñÿ 10 ñòðîê, ñîäåðæàùèõ èìÿ è ôàìèëèþ. Ïîìåíÿòü ìåñòàìè èìÿ è ôàìèëèþ, ðåçóëüòàò âûâåñòè íà ýêðàí.
On Error Resume Next
Dim a, i As Integer, sStr As String
For i = 1 To 10
    a = Split(InputBox("Èìÿ, Ôàìèëèÿ:"))
    sStr = sStr & a(1) & " " & a(0) & vbNewLine
Next
MsgBox sStr
End Sub