VBA : Vlookup Data Pictures Not Fully Work to Picture 2

[muhammad susanto]

hi all...

i'm looking for how to solved this code...
this macro working well to data lookup pictures. Only 1 picture can work but can't work to picture 2
how to make fit it?
here this code :

Sub ReplaceImages()
<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit; line-height: 12px;"> If Range("AM8") = "" Then Exit Sub
Dim MyPic As String
For i = 1 To 2
MyPic = "G:\foto_2page" & Range("AM8").Value & "_" & i & ".jpg"
With Me.Shapes("Pic_" & i).Fill
.Visible = msoTrue
On Error Resume Next
.UserPicture MyPic
End With
Next i
End Sub
Private Sub CommandButton1_Click()
ReplaceImages </code>End Sub

across post
https://www.excelforum.com/excel-programming-vba-macros/1245016-picture-2-cant-change-in-the-next-picture-or-record.html

my target in sheet "Form_Bgn and my data in sheet "Bangunan"

any help greatly appreciated....

.sst.