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
        ElseIf userName = "Emily" Then
            MsgBox ("Finish your home work before doing this.")
            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

Sub Question()
    Dim done As Boolean
    
    done = False
    While Not done
        answer = InputBox(prompt:="What color is the sky?", _
            Title:="Question")
        If answer = "" Then
            done = False
        ElseIf answer = "blue" Then
            MsgBox ("Good job.")
            done = True
        Else
            MsgBox ("Try Again.")
            done = False
        End If
    Wend
End Sub