Premesso che :

1) La parte numerica varia da 0 a 9999999....
2) L'anno è sempre di 4 cifre
3) L'anno è sempre preceduto da "/".
4) Vuoi solo le ultime due cifre dell'anno (ne millennio ne secolo)

Per estrarre il codice numerico

codice:
' Questa è la funzione
Private Function EstraiCodice(MiaStringa As String) As String
    Dim sCodice As String
    EstraiCodice = Left$(MiaStringa, InStr(MiaStringa, "/")) & Right$(MiaStringa, 2)
End Function

' la richiami così : 

EstraiCodice("22/2005")
Considerazioni sul codice di esempio :
1) Il codice di esempio indica uno dei probabilmente molti metodi di
risoluzione del problema.
2) E' stato provato prima di essere postato.
3) Non sono inclusi tutti i controlli di validità degli argomenti
passati alle funzioni, che andranno comunque inseriti nel codice
dell'applicazione reale.
4) Il codice riflette, se presenti, le premesse stabilite in testa al
messaggio di risposta.
5) Quando è possibile, si propende per una soluzione generalizzata,
per il riutilizzo del codice.
Ciao,