Option Strict On
Public Class Form1


    Private Sub start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles start.Click

        Dim i, Zufallszahl, Würfe As Integer
        Dim Würfel As New Random
        Dim auge(6) As Integer

        Try
            Randomize()

            lsb_ausgabe.Items.Clear()

            Würfe = CInt(txt_würfe.Text)

            For i = 1 To Würfe
                Zufallszahl = Würfel.Next(1, 7)
                auge(Zufallszahl) = auge(Zufallszahl) + 1
            Next

            For i = 1 To 6
                lsb_ausgabe.Items.Add("Zahl " & i & ": " & auge(i) & " mal gewürfelt")
            Next

        Catch fehler As Exception
            MsgBox("Idiot!!")
        End Try

    End Sub
End Class