Separar un string en dos partes

[Taribo007]

Prueba con esto:

Dim Var As String

Var = "C:\Dokumente und Einstellungen\lopez-rodriguezA\Eigene Dateien\Proyectos\ToyotaNew\Sources\Toyota Motor Corporation.txt"

MsgBox "PATH: " & Left(Var, InStrRev(Var, "\")) & vbCrLf & _
"DOCUMENT:" & Right(Var, Len(Var) - InStrRev(Var, "\"))



Y para una consulta:

PATH: Izq([Campo];InStrRev([Campo];'\'))

DOCUMENT: Der([Campo];Longitud([Campo])-InStrRev([Campo];'\'))

Un saludo