Runtime error '53': File not found

I have same issue hard to solve , please may you help me solving the error . It was working like a clock but a year after code have problems i m sure why ...

tHX for any info

corrupted line shown below with arrow

Private Sub ComboBox1_Change()
ChDir ("c:/xlabpro/analiz/PENDIK")
--> UserForm2.TextBox1.Text = FileDateTime(UserForm2.ComboBox1.Value)
End Sub

Private Sub CommandButton1_Click()
Application.Run "'PENDIK.xls'!Sayfa2.gonder"
End Sub

Private Sub CommandButton2_Click()
Unload UserForm2
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Initialize()
For x = 4 To 35
  a$ = Cells(x, 2)
  b$ = Cells(x, 3)
  c$ = a$ + " / " + b$
  If Cells(x, 2) = "" Then c$ = ""
  UserForm2.ListBox1.AddItem c$
Next x
End Sub