Extraer texto

[oruiz]

Estimados foristas,

Como hago para extraer, mediante macro, del siguiente texto únicamente el año?

Dato inicial: Enero-2010 (tipo texto)
Dato a extraer: 2010

Gracias

 

[Adrian]

Hola, como no das más presisiones, pongo macro:

<i>
</i>Sub Extaer()
Dim x As String, j As String
x = "Enero-2010"
j = Mid(x, InStr(x, "-") + 1)
MsgBox j
End Sub

 

[oruiz]

Adrian,

Muchísimas gracias