Quitar acentos en un textbox

Yo uso esta función:

'--------------------------------------------------------------------------------------------
'Función para quitar acentos de una cadena de texto
'--------------------------------------------------------------------------------------------
Public Function fncQuitarAcentos(ByVal strNombre As String) As String
    Const conAcentos = "áàäâÁÀÄÂéèëêÉÈËÊíìïîÍÌÏÎóòöôÓÒÖÔúùüûÚÙÜÛýÿÝ"
    Const sinAcentos = "aaaaAAAAeeeeEEEEiiiiIIIIooooOOOOuuuuUUUUyyY"
    Dim i As Integer
    For i = Len(conAcentos) To 1 Step -1
      strNombre = Replace(strNombre, Mid(conAcentos, i, 1), Mid(sinAcentos, i, 1))
    Next
    fncQuitarAcentos = strNombre
End Function

Donde generas el código, le aplicas la función al resultado, por ejemplo:

CodigoUsuario=fncQuitarAcentos(Me.txtUsuario)

Saludos!

Una nueva web de Access, visítanos: http://nksvaccessolutions.com/ 

¡Funciona maravillosamente, como todo lo que propones como solución!
Pero ahora surge otro problema:

'Ana Luz' Gómez genera 'ana gome'.
¿Cómo puedo hacer para que me omita el espacio y tome la siguiente letra del nombre y si no la hay que tome 3 del nombre y 5 del apellido?
O bien, si el caso sea: 'Ana San' que genere 'anasan12" (o sea, complete el usuario con otros caracteres específicos o al azar, si es posible).
Desde ya gracias.

Usa la función Trim() para eliminar los espacios antes de formar el código, o usa la función Replace() para cambiar el espacio por una cadena vacía ("").

Para añadir números aleatorios, investiga la función Rnd()

Una forma que probé y funcionó es: A la cadena de texto para quitar acentos agregué un espacio en blanco y la cadena de caracteres sin acento no añadí nada. Funcionó, pero me parece más preciso lo que me pasas y que queda excelente de eventuales errores.
El que yo usé y es bastante rebuscado y complejo es:

LCTXTVAL = Mid(txtNom, 1, 5) & Mid(txtApe, 1, 5)
VALMAX = 10 - Len(TXTVAL)
If Len(TXTVAL) < 10 Then
     TXTVAL = LCase(TXTVAL & String(VALMAX, "1"))
End If

De esta forma 'Ana Luz' genera 'analuz1111'

Ahora, RND genera aleatorios entre 0 y 1, por lo tanto decimales. ¿Hay alguna forma de quedarme solamente con los decimales o con 1 o 2 dígitos de los decimales?

Te remito a la ayuda de microsoft:

https://support.office.com/en-us/article/Rnd-Function-503cd2e4-3949-413f-980a-ed8fb35c1d80 

¡Qué idiota fui! Si he usado el método para generar aleatorios entre cierto margen.

TXTVAL = Trim(Mid(txtNom, 1, 5) & Mid(txtApe, 1, 5))
ALEAT = Int((100 - 1000 + 1) * Rnd + 0)
VALMAX = 10 - Len(TXTVAL)
If Len(TXTVAL) < 10 Then
     TXTVAL = TXTVAL & String(VALMAX, ALEAT)
End If

Ese código me genera el usuario 'analuz----' y el hacerlo absoluto con ABS() me repite sólo el primer dígito del aleatorio ('analuz5555', por ejemplo).

¿Qué puede suceder? Disculpa que no de cierre pero me está dando verdaderos dolores de cabeza, no tengo el conocimiento y me empecino a que funcione.