' THIS PROGRAM WILL TEACH YOU HOW TO PUT A VARIABLE INTO A MESSAGEBOX 
' This Program will base around a favourite Celebrity and a rating from 1-10
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim celebrity As String ' makes your celebrity's variable
        Dim rating As Integer   ' makes your rating variable

        celebrity = InputBox("Enter the name of your Celebrity") ' asks for celebrity name
        rating = InputBox("Give your celebrity a rating between 1-10.") ' asks for the rating between 1-10 (1 is the worst, 10 is the best)

        MsgBox("The celebrity you entered was " & celebrity & " and you rated them " & rating & " out of 10") ' makes messagebox with both variables.

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub
End Class