Dim userName

Sub YourName()
    Dim done As Boolean
    
    done = False
    While Not done
        userName = InputBox(prompt:="Type your name", _
            Title:="Input Name")
        If userName = "" Then
            done = False
        Else
            done = True
        End If
    Wend
End Sub

Sub DoingWell()
    MsgBox ("You are doing well, " & userName)
End Sub

Sub DoingPoorly()
    MsgBox ("Try to do better next time, " & userName)
End Sub