Dado um string representando um nome completo (nome e sobrenome), coloque o nome no final. Por exemplo, se o nome fornecido for "Flavio Soares Correa da Silva", o programa deve produzir "Soares Correa da Silva, Flavio".
Sub Sobrenome()
Dim Nome As String
Dim Sobrenome As String
Dim Completo As String
Dim i As Integer
i = 1
Completo = Worksheets(1).Cells(1, 1)
Do While (Mid(Completo, i, 1) <> " ")
i = i + 1
Loop
Nome = Left(Completo, i - 1)
Sobrenome = Mid(Completo, i + 1)
Completo = Sobrenome + ", " + Nome
Worksheets(1).Cells(2, 1) = Completo
End Sub
Programa 4