Sub HowDoYouFeel()
Dim score As Integer
Dim userName As String
userName = InputBox("What is your name?")
score = InputBox("On a scale of 1 to 10, how do you feel?")
If score > 5 Then
If score > 7 Then
If score > 9 Then
If userName = "Ella" Then
If score > 10 Then
MsgBox ("That's amazing")
Else
MsgBox ("That's perfect")
End If
ElseIf score < 6 Then
MsgBox ("That's middling")
Else
MsgBox ("You're perfect.")
End If
ElseIf score = 5 Then
MsgBox ("Are you middling?")
Else
MsgBox ("Are you above average?")
End If
ElseIf score = 5 Then
MsgBox ("Right in the middle")
Else
MsgBox ("That's good")
End If
Else
MsgBox ("Not too good.")
End If
End Sub