INPUT BOX YES / NO / OTHER CONDITION IN VB.NET

INPUT BOX YES / NO / OTHER CONDITION IN VB.NET
====================================================================================
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim reply As String

reply = InputBox("Shall we proceed?")

reply = UCase(reply)
If reply = "YES" Then
MsgBox("Ok. We’ll proceed.")
ElseIf reply = "No" Then
MsgBox("NO. We’ll'nt proceed.")
Else
MsgBox("please enter yes/no")
End If
End Sub
===================================================================================