VB6: usando InStrRev para separar el nombre de un archivo de la ruta donde está almacenado

Imaginemos que tengo este string que contiene la ruta a una rchivo:

unaRuta = "C:\unaCarpeta\otraCarpeta\unArchivo.txt"

Y quisiera separalo en dos strings, con la ruta del archivo y el nombre del archivo por separado:

miRuta =  "C:\unaCarpeta\otraCarpeta\"

miArchivo = "unArchivo.txt"

Para hacerlo uso la función de VB6 InStrRev, que busca una cadena dentro de otra pero enpezando desde el final.
El código completo es:

Dim miRuta as String

Dim miArchivo as String

Dim unaRuta as String

Dim unaLen as Long

unaRuta = "C:\unaCarpeta\otraCarpeta\unArchivo.txt"

miRuta = Left$(unaRuta, InStrRev(unaRuta, "\"))

unaLen = Len(unaRuta) - InStrRev(unaRuta, "\")
miArchivo = Right$(unaRuta, unaLen)

Con este código chiquito ya tenemos separados el nombre de un archivo de la ruta donde está almacenado :D