My First Progam

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim answer As String
        MsgBox("Question 1", MsgBoxStyle.YesNo, "Sample quiz")
        MsgBox("Question 2", MsgBoxStyle.YesNo, "Sample quiz")
        MsgBox("Question 3", MsgBoxStyle.YesNo, "Sample quiz")
        answer = MsgBox("Do you have facebook profile?", MsgBoxStyle.YesNo, "Sample quiz")
        If answer = "6" Then '6 is Yes, 7 is No
            MsgBox("You're popular, add me. I wanna be popular too (hehheh)", MsgBoxStyle.Information, "Sample quiz")
            End
        Else
            MsgBox("You are looser! Get one immediatly!!! :)", MsgBoxStyle.Critical, "Sample quiz")
            End
        End If
    End Sub