بارك الله فيك الاخ الفاضل
فقط ان لم اكثر عليك تعديل رابط اسراد الصورة من الملف المستحدث photos وشكرا مرة أخرى
Private Sub TextBox1_Change()
'=============================
Dim MYPATH
MYPATH = ThisWorkbook.Path & "\" & TextBox1.Text & ".JPG"
If Right(MYPATH, 1) <> "\" Then
On Error GoTo 1
Image1.Picture = LoadPicture(MYPATH)
Else
1:
'MsgBox "åÐÇ ÇáÕæÑÉ ÛíÑ ãæÌæÏÉ", vbInformation, "ÎØÃ"
'Image1.Picture = LoadPicture()
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\M.JPG")
Exit Sub
End If
'==========================================
End Sub