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

Формулировка задачи:

есть два задания одно я сделал "В компьютер вводится 10 слов. Вывести эти слова на экран, отсортированные в алфавитном порядке." вот программа Sub Prog_v6()

                    Листинг программы
                
 
                        
                          
                    
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

а вторую"В компьютер последовательно вводятся 10 строк, содержащих имя и фамилию. Поменять местами имя и фамилию, результат вывести на экран. " не могу понять там ф.и. вводить как в один массив или отдельно и потом поменять местами их ..или по другому потому что по условию стоит вводят 10 строк...

Решение задачи: «Поменять местами имя и фамилию, результат вывести на экран.»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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