Public Function Einmal_Würfeln() As Integer
        Dim Rückgabe As Integer = 0
        Try
 
            WZufallsgenerator = New Random
            Rückgabe = WZufallsgenerator.Next(1, WZahlenliste.Count)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Einmal_Würfeln = Rückgabe
        End Try
    End Function