Lotus Notes - NOVATO con duda en campo

tengo información en un campo de tipo texto (cadena de caracteres) ejemplo: escuela\salon\escritorio y deseo que solo me entrege de izquierda a derecha hasta la primer antidiagonal (solo escuela) he utilizado la instruccion @left(cadena; n) pero los demas registros varian por lo que solo definir un numero no me es suficiente y si me interesa traer todo antes de la primer antidiagonal de izquierda a derecha

GRACIAS por su APOYO

Dim cadena as string
log=len(campo)
For X=1 To log
cadena = Mid(campo,1,X)
If cadena <> "/" Then
cadena1=cadena+cadena
Else
X=log
End if
Next