Thay đổi ảnh theo tùy chọn của combobox

[BOng map]

Anh/chị chỉ giúp em với ah.
Em có 1 file tính có đoạn code về thay đổi ảnh theo lựa chọn của combobox nhưng có đường dẫn ảnh. Em có đoạn code bên dưới:
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim fA()
Dim i, n As Integer
Dim dname As Variant
ChDir "C:\Users\ADMIN\Downloads\Anh thep" => đường dẫn ảnh.
dname = Dir("*.jpg")
Do While dname <> ""
n = n + 1
ReDim Preserve fA(1 To n)
fA(n) = dname
dname = Dir()
Loop
For i = 1 To n
cb4.AddItem fA(i)
Next
Application.ScreenUpdating = True
End Sub
Sub cb4_change()
Image1.Picture = LoadPicture(cb4.Value)
End Sub
Vì file sẽ gửi chuyển sang nhiều máy, nên anh/chị có cách nào giúp em, làm ảnh thay đổi theo lựa chọn của combobox mà không cần đường dẫn của ảnh k ah.
Ngoài ra, em có một lỗi là khi em lưu file chứa marco ở ổ C thì combobox và ảnh hoạt động bình thường nhưng khi em lưu file sang ổ D thì combobox bị mất giá trị và ảnh k còn hoạt động nữa ah.
Anh/ chị chỉ giúp em với ah.
Em cảm ơn ah.