Access - Crear CURP y RFC

Dim i As Integer

    Dim Vlargo As Integer

    Dim Vcadena As String

    Dim Vvocal As String

    Dim Vfecha As String

    'a_paterno, miramos el largo del apellido

    Vlargo = Len(Me.a_paterno.Value)

    'cogemos la primera letra

    Vcadena = Left(a_paterno.Value, 1)

    'recorremos letra a letra

    For i = 1 To Vlargo

        'buscamos la primera vocal

        Vvocal = Mid(a_paterno, i, 1)

        'Dependiendo de cómo tengas declarado "Option Compare " en principio no haría falta 

        'distinguir entre may./minusculas  

        If Vvocal = "A" Or Vvocal = "E" Or Vvocal = "I" Or Vvocal = "O" Or Vvocal = "U" Then

            Vcadena = Vcadena + Vvocal

            Exit For      'salimos si ya tenemos una vocal

        End If

    Next i

    'a_materno + nombre

    Vcadena = Vcadena + Left(Me.a_materno.Value, 1) + Left(Me.nombre.Value, 1)

    'fecha

    Vfecha = Format(Me.fecha_nacim.Value, "yymmdd")

    'el resultado ya lo tenemos si concatenamos Vcadena+Vfecha

    'lo mostramos en un texbox llamado Tx_Resultado

    'Por si acaso la primera parte la pasamos a mayúsculas   

    Me.Tx_Resultado.Value = UCase(Vcadena) + Vfecha