Sub reader()
        Using fs As New IO.FileStream("C:\Users\" + usrname + "\AppData\Roaming\ToolHUB\Encrypt.cfg", IO.FileMode.Open, IO.FileAccess.Read)
            Using bs As New IO.BufferedStream(fs)
                Using reader As New StreamReader("C:\Users\" + usrname + "\AppData\Roaming\ToolHUB\Encrypt.cfg")
                    While reader.Peek() > -1
                        RichTextBox1.AppendText(reader.ReadLine + vbCrLf)
                    End While
                    reader.Close()
                End Using
            End Using
        End Using
    End Sub