VS fonction de nombre aléatoire

Public Class Generateur
#Region " Déclaration des variables"
    
    
    Dim Hasard, Hasard1, As Random
    Dim max, min As Integer
    Dim number, number1, number2 As Integer
    Dim Bonjour As String
    Dim Introduction As String
    Dim Introduction2 As String

#End Region

#Region " Interface"
    
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        max = 10
        min = 0
        compteur = 0
    End Sub

    Private Sub Generateur_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Randomize()
    End Sub

#End Region

Public Sub Generer_Click(sender As System.Object, e As System.EventArgs) Handles Generer.Click

        Nombre aléatoire 
        Randomize()
        number = 0
        max = 5
        min = 0
        Bonjour = " Bonjour "
        Emprunt = (Val(Somme.Text))
        Hasard = New Random
        max = max + 1
        number = Hasard.Next(min, max)
        Entrer = Environment.NewLine
        number1 = number
        Virgule = " , "

        ' Introduction 
        If (number > 10) Then
            MsgBox(" Erreur ")
            compteur = compteur + 1
            hasardbox.Text = " Le nombre Hasard est " & number
            Console.WriteLine(hasardbox)
        Else
            Select Case (number) 
                Case 0 
                    Introduction = "Bonjour " ' introduction est déclarér  
                Case 1 
                    Introduction = "Bonsoir " 
                Case 2 
                    Introduction = "Hello " 
                Case 3 
                    Introduction = "Good morning " 
                Case 4 
                    Introduction = "Good Afternoon " 
                Case 5 
                    Introduction = "good evening " 

            End Select 
        End If
        ' Introduction 2 
        ' Nombre aléatoire
        Randomize()
        number = 0
        max = 5
        min = 0
        Hasard = New Random
        max = max + 1
        number = Hasard.Next(min, max)
        number2 = Val(number)

        If (number > 10) Then
            MsgBox(" Erreur ")
            compteur = compteur + 1
            hasardbox.Text = " Le nombre Hasard est " & number
            Console.WriteLine(hasardbox)
        Else
            Select Case (number1)
                Case 0
                    Introduction2 = "Comment allez vous  "
                Case 1
                    Introduction2 = "How Are you ?   "
                Case 2
                    Introduction2 = " Comment allez vous "
                Case 3
                    Introduction2 = "Comment allez vous  "
                Case 4
                    Introduction2 = "Comment allez vous  "
                Case 5
                    Introduction2 = "Comment allez vous   "
            End Select
        End If


 hasardbox.Text = " Combinaison : " & number1 & number2 
        Console.WriteLine(hasardbox)
        Final.Text = Bonjour 
        Console.WriteLine(Final
End Sub