Detectar Palabra entre caracteres VB6

[Ciberdanny]

hola lucord te agradezco la ayuda, creo que si funciona aunque tengo un detalle o no se si lo meti mal:

esto haciendole asi:

cadena = "pruebaprueba>lo que sea lo que sea"
posicion = InStr(1, cadena, ">")
salida = Mid(Var, 1, posicion - 1)
MsgBox salida


cuando pruebo el codigo me arroja un msgbox en blanco, sin contenido, si le pongo msgbox posicion si me arroja la posicion correcta, pero si le pongo msgbox salida no me arroja información

es algo que estoy haciendo mal???