Hello There

I  have coded random string as below and i want  to convert it to qr code , then send to email automatically , can you help me out ? thanks in advance

Dim chars As String = "Test1"
            Dim qr As String = ""
            Dim r As New Random()
            Dim i As Integer
            For i = 1 To 5
                qr += chars.Substring(r.Next(chars.Length), 1)
            Next