Message Box

Resolvendo o problema

1. Comece declarando as variáveis e atrelando a resposta do MsgBox a uma variável

   Dim Ans As String
   Dim Ans2 As String
   Dim Name As String
   
   Ans = Msgbox("Seu nome é " & Application.UserName & "?", vbYesNo, "SuperExcelVBA")
   

2. Caso a resposta da pergunta do nome tenha sido não, continuamos o problema com o InputBox para retificar o nome

   If Ans = vbNo Then
       Name = InputBox("Qual o seu nome?", "SuperExcelVBA")
   

3. Criamos uma condicional If para sair da rotina caso o input seja vazio

   If Name = vbNullString Then
       Exit Sub
   End If
   

4. Agora com o input do usuário criamos uma nova pergunta com duas respostas

   Ans2 = Msgbox("Desculpe-me pelo erro " & Name & "! Não ocorrerá novamente." _
   & vbCrLf & vbCrLf & "Desculpar?!", vbYesNo, "SuperExcelVBA")
   If Ans2 = vbNo Then
       Msgbox "O Erro é realmente imperdoável! Sentimos muito.", vbCritical, "SuperExcelVBA"
       Else
       Msgbox "Muito obrigado, senhor(a)!"
   End If
   

5. Caso positivo a resposta para pergunta do nome seja positiva, encerramos o problema com uma mensagem

   Else
       Msgbox "Sou um advinho! ;-)", , "SuperExcelVBA"
   End If
   

Código Consolidado

    Sub Resolucao()

    Dim Ans As String
    Dim Ans2 As String
    Dim Name As String

    Ans = Msgbox("Seu nome é " & Application.UserName & "?", vbYesNo, "SuperExcelVBA")

    If Ans = vbNo Then
        Name = InputBox("Qual o seu nome?", "SuperExcelVBA")
        If Name = vbNullString Then
            Exit Sub
        End If
        Ans2 = Msgbox("Desculpe-me pelo erro " & Name & "! Não ocorrerá denovo." & vbCrLf & vbCrLf & "Desculpar?!", vbYesNo, "SuperExcelVBA")
        If Ans2 = vbNo Then
            Msgbox "O Erro é realmente imperdoável! Sentimos muito.", vbCritical, "SuperExcelVBA"
            Else
            Msgbox "Muito obrigado, senhor(a)!"
        End If
    Else
        Msgbox "Sou um advinho! ;-)", , "SuperExcelVBA"
    End If

    End Sub