VBA : Change Picture Name From 1_1.jpg To ONLY 1.JPG, etc....

[muhammad susanto]

hi all....

how to make this code work if the picture is series number not adding mark "_"
i must give the file name always e.q. 1_1.jpg;2_1.jpg; 3_1.jpg, ect...

i want the picture name like 1.jpg;2.jpg;3.jpg NOT USE "_1"...
here this code :

Sub ReplaceImages()    If Range("AM8") = "" Then Exit Sub
    Dim MyPic As String
    For i = 1 To 4
        MyPic = "g:\foto_dino\" & Range("AM8").Value & [COLOR=#ff0000]"_" & i[/COLOR] & ".jpg"
        With Me.Shapes("Pic[COLOR=#ff0000]_" & i[/COLOR]).Fill
            .Visible = msoTrue
            On Error Resume Next
            .UserPicture MyPic
        End With
    Next i
End Sub

any help, thank in advance...

susanto