..non è un limite!!

tu sai che app.path si comporta in un certo modo.. tu ti devi adattare!

fai così:
codice:
Dim strPath as String

If right(App.path,1) = "\" Then
    strPath = App.Path & "ciao\"
else
    strPath = App.Path & "\ciao\"
End if

File1.Path = strPath
controlli se l'ultimo carattere di app.path è uno "\", se si concateno "ciao\", altrimenti concateno "\ciao\"!