Visual Basic - Tratamiento de errores

Hola a todos, recogí y ando usando esta Función de esta web, funciona casi perfectamente a no ser que el error que muestra en el campo que la llama en el evento despuésde actualizar, y justamente después de perder el foco y si el campo queda Null, manda error de "Uso de Null no válido". Os la pongo por si se le puede hacer algún tratamiento de errores ya que yo soy incapaz de hacerlo.

Public Function SinTildes(strTexto As String) As String
strTexto = Replace(strTexto, "á", "a")
strTexto = Replace(strTexto, "é", "e")
strTexto = Replace(strTexto, "í", "i")
strTexto = Replace(strTexto, "ó", "o")
strTexto = Replace(strTexto, "ú", "u")
strTexto = Replace(strTexto, "ü", "u")
strTexto = Replace(strTexto, "0", "o")
strTexto = Replace(strTexto, "", "")
SinTildes = strTexto
End Function ' SinTildes

La llamo desde este evento del cuadro donde quiero que cambie valores:

Private Sub Cuadro_combinado36_AfterUpdate()
Me.Nombre = SinTildes(Me.Nombre)
End Sub

GRACIAS

Prueba a ver???????
Public Function SinTildes(strTexto As String) As String

On Error Goto ErrorDeNulo

strTexto = Replace(strTexto, "á", "a")
strTexto = Replace(strTexto, "é", "e")
strTexto = Replace(strTexto, "í", "i")
strTexto = Replace(strTexto, "ó", "o")
strTexto = Replace(strTexto, "ú", "u")
strTexto = Replace(strTexto, "ü", "u")
strTexto = Replace(strTexto, "0", "o")
strTexto = Replace(strTexto, "", "")
SinTildes = strTexto

On Error Goto 0
exit sub
ErrorDeNulo:
Resume Next

End Function ' SinTildes

Si el error es en el evento pon el control de errores en el ??????

Private Sub Cuadro_combinado36_AfterUpdate()
On Error Goto ErrorDeNulo
Me.Nombre = SinTildes(Me.Nombre)
On Error Goto 0
exit sub
ErrorDeNulo:
Resume Next
End Sub

Perfecto Charli, le puse los tratamientos de errores en el evento de cada cuadro combinado donde aplicaba la función, y ya puedo salir de ellas dejandolas en Null. Gracias