Các bác giúp em với ạ

[hoangpheo290193]

Chào các anh/ chị trong diễn đàn ạ. Em mới tập làm VBA, đang tập làm VBA
Em có viết đoạn code này, khi chạy userform nó cứ bảo lỗi "Run time error 53' File not found

Đoạn code của em đây ạ:

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim a As Object
For Each a In Sheet1.Range("f2:f10")
cbSale.AddItem a
Next
Dim fA()
Dim i, n As Integer
Dim dName As Variant
ChDir "D:\CONG VIEC\Duong 129\KCS NEN DUONG MAU\KCS K95\ANH"
dName = Dir("Mai.jpg")
dName = Dir("Quynh.jpg")
dName = Dir("Dung.jpg")
Do While dName <> ""
n = n + 1
ReDim Preserve fA(1 To n)
fA(n) = dName
dName = Dir()
Loop

For i = 1 To n
cbSale.AddItem fA(i)
Next
Application.ScreenUpdating = True
End Sub

Sub cbSale_Change()
Image1.Picture = LoadPicture(cbSale.Value)
End Sub
Khi em kiểm tra thì nó bảo sai đoạn này ạ : Image1.Picture = LoadPicture(cbSale.Value)
Các cao nhân chỉ giúp em với ạ. Em nghịch cả ngày rồi vẫn không ra