Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dice4 As Integer
        Dim dice6 As Integer
        Dim dice12 As Integer

        Dim dice4a As Integer
        Dim dice6a As Integer
        Dim dice12a As Integer

        dice4 = 4
        dice6 = 6
        dice12 = 12

        dice4a = 4
        dice6a = 6
        dice12a = 12

        Dim guess As Integer
        guess = 0
        guess = InputBox("What side dice do you want, 4, 6, or 12?")
        If guess = dice4 Then
            dice4 = Rnd() * 3 + 1
            MsgBox("You chose a " & dice4a & " sided dice, and your score was " & dice4)
        ElseIf guess = dice6 Then
            dice6 = Rnd() * 5 + 1
            MsgBox("You chose a " & dice6a & " sided dice, and your score was " & dice6)
        ElseIf guess = dice12 Then
            dice12 = Rnd() * 11 + 1
            MsgBox("You chose a " & dice12a & " sided dice, and your score was " & dice12)
        Else
            MsgBox("There was an error, please try again!")
        End If

    End Sub
End Class