How to insert an image from the Internet into a VBA Excel Userform

Question

I found the VB code here , but I need it for VBA. After reading this code, I tried to mess up this code , but am still trying to figure it out. In addition, someone had this problem before, as shown here , but there was no explicit solution.

The code I'm working with:

Sub Image1Insert()
    Application.ScreenUpdating = False
    Dim strPath As String
    strPath = "https://www.gravatar.com/avatar/fbd7dcb2d47ddcd7e6a799bde3ec0ef6?s=48&d=identicon&r=PG&f=1"
    UserForm1.Image1.Picture = LoadPicture(strPath)
End Sub

---

UserForm1.Image1.Picture = LoadPicture(strPath)

or UserForm1.Image1.Picture = ActiveSheet.Pictures.Insert(strPath)

Neither work nor idea. Thanks in advance!