pero q pasa si la ruta tiene mas de un ".", por q lo hay.
ej: mi.archivo.de.algo.txt
en este caso habria q buscar el primer "." pero de derecha a izquierda
pruebalo si quieren pon:
Dim ruta As String
ruta = "mi.archivo.de.algo.txt"
MsgBox Mid(ruta, 1, InStrRev(ruta, ".") - 1)
el resultado seria "mi.archivo.de.algo".
Salu2