.Net Coding Challenge #5

[Modestep]

I made this in like 10 mins, i dont have mutch time

Spoiler (Click to View)

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cola As String = Random()
        Label1.Text = cola
    End Sub
    Public Function Random() As String
        Random = ""
        Const strUpper As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Const strLower As String = "abcdefghijklmnopqrstuvwxyz"
        Const strNumbers As String = "1234567890"
        Dim strTotal As String
        Dim i As Short
        strTotal = strUpper & strLower & strNumbers
        For i = 1 To CInt("8")
            Random = Random & Mid(strTotal, Int((Rnd() * Len(strTotal)) + 1), 1)
        Next i
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = Label1.Text Then
            MessageBox.Show("You may crap stones now")
        Else
            Me.Close()
        End If
    End Sub
End Class