Omitir el primer dígito en un textbox

Hola expertos, tengo una duda
Como puedo omitir el primer dígito en un textbox, explico
Tengo una textbox en un formulario al momento de ingresar un dato en este textbox lo que hace este textbox en el evento al hacer clic es que busca en el campo de la tabla el dato que se ingreso en el textbox del formulario, si es que esta este dato en el campo imprime un reporte hasta aquí todo bien.
Este es el código que contiene el textbox en el evento al hacer clic:
Dim VORACLE, vValorB As Variant
VORACLE = Me.ORACLE.Value
If IsNull(VORACLE) Then Exit Sub
vValorB = DLookup("[ORACLE]", "PPAPS", "[ORACLE]='" & VORACLE & "'")
If vValorB = VORACLE Then
DoCmd.OpenReport "Inicio", acprint, , "[ORACLE]='" & VORACLE & "'"
Me.ORACLE.Value = Null
''Me.ORACLE.SetFocus
Else
MsgBox "No tiene PPAPs Aprobado", vbExclamation, "AVISO"
Me.ORACLE.Value = Null
End If
Ahora el detalle es que el código de barras contiene una letra "P" al inicio del grupo de numero ejemplo: P23464, entonces aunque el numero 23464 exista en la tabla PPAPS no imprimirá el informe por la "P" que lee el escáner al inicio.
Después de todo este rollo la pregunta es:
Como puedo hacer para que el escáner omita la "P" que esta al inicio y lea solo los números y busque si es que esta en la tabla.
Agradecería mucho su ayuda