correcto tenia un error, el problema estaba en que pasé mal la variable de la funcion MID, debe ser cadena en lugar de var...
Código vb:
Ver originalcadena = "pruebaprueba>lo que sea lo que sea"
posicion = InStr(1, cadena, ">")
salida = Mid(cadena, 1, posicion - 1)
MsgBox salida
En todo caso me alegro que te sirviera la ayuda.
Salu2.