Giúp code VBA hiện hình ảnh Lên Userform của Image

[Văn Toàn 1996]

Em chào tất cả mọi người GPE. hiện em đang sử dụng 1 đoạn code ( Trên diễn đàn ) để tạo mã QR , nhưng code trên nó hiện ra mã QR ngay tại vị trí ô I2. bây giờ làm thế nào để nó hiện Lên Userform. Em muốn khi chạy code nó mở Userform lên và hiện mã QR trên userform luôn. Em xin chân thành cảm ơn

 Sub TaomaQR()
    Dim Arr(), I As Integer, s As String, pic
    With Sheet2
        For Each pic In Sheet2.Pictures
           pic.Delete
        Next pic
 
        Arr = .Range("B2:H2").Value
        For I = 1 To 1
            If TaoQRThanhToan(CStr(Arr(I, 1)), CStr(Arr(I, 3)), CStr(Arr(I, 7)), s, CLng(Arr(I, 5)), CStr(Arr(I, 6)), CStr(Arr(I, 4)), False) Then
                .Shapes.AddPicture s, msoFalse, msoTrue, .Range("I" & (I + 1)).Left, .Range("I" & (I + 1)).Top, .Range("I" & (I + 1)).Width, .Range("I" & (I + 1)).Height
            End If
        Next I
    End With
End Sub