Sì ... questa linea va modificata cosi'

Text1.Text = File1.Path & "\" & File1.List(File1.ListIndex)

... io l'avevo provato con un file nella root e non c'era il problema ...