Probleme dans mon code

bonjour , 2 probleme: 1) j'arrive pas afficher le password dans RichTextBox1.
2)dans la (Function GenerateRandomString(ByVal LongueurPasse As Integer) As String ) es ce que c bon pour decrypter password. merci de votre aide.

Public Class Form1

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = GenerateRandomString(10).ToString
        Dim dialog As New OpenFileDialog()
        dialog.Filter = "Fichier Winrar (*.rar)|*.rar|Fichier Winzip (*.zip)|*.zip"
        If DialogResult.OK = dialog.ShowDialog Then
            TextBox1.Text = dialog.FileName
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Start()
    End Sub

    Function GenerateRandomString(ByVal LongueurPasse As Integer) As String
        Dim allowableChars As String
        allowableChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#$%&'()*+,-./:;<=>?@[\]^_'{|}~"
        GenerateRandomString = ""
        Dim max As Integer = allowableChars.Length
        Dim NbAleatoire As Integer
        Dim rnd As System.Random = New System.Random
        Dim t As Integer
        For t = 1 To LongueurPasse
            NbAleatoire = rnd.Next(0, max)
            GenerateRandomString = GenerateRandomString & allowableChars.Substring(NbAleatoire, 1)
        Next

    End Function
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 99 Then
            MsgBox(Prompt:="Password succesful!")
        End If
        Label1.Text = ProgressBar1.Value & "%"

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        If RichTextBox1.Text = True Then
        End If
    End Sub

End Class