وعليكم السلام استاذ @ابو جودي
هي محاولة ..استبدل السطر اعلاه ب
If Len(strOptionExtension) > 0 Then
.Filters.Add "Select File", strOptionExtension
Else
.Filters.Add "Select File", "*.jpg;*.png"
End If
الاستدعاء ..
Dim selectedFile As String
selectedFile = CustomPicker(0, "*.jpg;*.png")