Formatear número

[yomesmo]

Hola, alguien sabe como formatear un número con la siguientes características:

El número viene así por ejemplo en una variable: 112003 y quiero presentarlo así: 11/2003

Tambien puede venir así: 12003 y habría que presentarlo así: 1/2003

siempre las 4 últimas cifras son el año y antes es donde hay que colocar la barra inclinada.

Gracias de antemano.

[ElAprendiz]

mmhh algo asi

anio=left(var, 4)
mes=right(len(var)-anio)

despues solo lo muestras mes+"/"+anio

[yomesmo]

Gracias, pero me dá un error:

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'right'

¿que puede ser?

[ElAprendiz]

ahora si, es que lo puse al reves, y no tengo como probarlo

anio=right(var, 4)
mes=left(var, ((len(var))-1)-len(anio))

el -1 es por el caracter "/"

[yomesmo]

Por poco, ahora me dice:

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'right'

Perdona las molestias y gracias de nuevo!!

[monkyta]

Prueba esto

dim dato1
if len(var) < 6 then
anio=mid(var,2,4)
mes = mid(var,1,1)
else
anio=mid(var,3,4)
mes = mid(var,1,2)
end if
dato1=mes & "/" & anio