Problemas en ruta de carpeta en macro

Quisiera saber como hacer para cuando abro mi macro, no me salte que no encuentra la ruta d carpeta dejo el código y cada vez que entro en un ordenador tengo que cambiar la ruta y tbm si es posible que en el mensaje d bienvenido salga la foto :

Private Sub cmdaceptar_Click()
Dim foto
Dim I As Integer, hoja As Object
'ChDir "C:\Users\Jesús\Desktop\Sistema de reporte\imágenes\"
'ChDir "C:\Users\Jesús\Google Drive\MACRO REPORTE\Sistema de reporte\imágenes\"
'ChDir "C:\Documents and Settings\Mnist Comunicaciones\medif\Sistema_de_reporte-2014-06-29\Sistema de reporte\imágenes\"
ChDir "C:\Users\ACOINSA USER\MediaFire\Following\Sistema de reporte\imágenes\"
foto = TextBox1.Value
Image2.Picture = LoadPicture(foto & ".jpg")
If Me.TextBox1 = "" Then
MsgBox "Debe Escribir el usuario", vbExclamation
Exit Sub
End If
For I = 1 To 10
If Me.TextBox1 = CStr(Hoja32.Cells(I, 1)) And Me.TextBox2 = CStr(Hoja32.Cells(I, 2)) Then
MsgBox "Bienvenido" & foto, vbInformation
For Each hoja In ThisWorkbook.Sheets
If Not hoja.Name = "INICIO DE SESIÓN" Then hoja.Visible = True
Next
Unload Me
Sheets("MENU").Select