[Resolvido]campo formulario preenchido automatico formato 0000/ano ou <9999999

If NUMERO < 9999 Then
Me.documento = "Oficio"
Else
Me.documento = "Petição"
End If

da forma que esta ai emcima funciona , mas como fazer que ao inves de ter <9999 , dizer se o campo tiver alguma barra (/) o valor =oficio ex.120/2012 = oficio

Boa madrugada!!
Eis o código:

Dim strProcura As String, intCriterio As Integer
strProcura = "/"
intCriterio = InStr(Me.txtTeste, strProcura)
If intCriterio Then
Me.documento = "Oficio"
Else
Me.documento = "Petição"
End If

obrigado a dica

inserio a linha
If Not IsNull(Me.NUMERO)
no comeco, caso do valor ser nulo
nao da erro ,e ficou do jeito que eu queria .
valeu mesmo a galera do forum e demais.

Obrigado pelo retorno, o fórum agradece!