Validación NIE

[NazCarLpa]

Buenas tardes.

Estoy con un programa en el cual lleva datos de usuario y uno de ellos es el DNI o NIE en caso de tenerlo.

Tengo un ComboBox que me da a elegir DNI o NIE, al eleje NIE actiba otro ComboBox que me da a elegie la letra que lleva dicho NIE, (X, Y, Z).

Hasta aquí todo bien.

La cosa es, como hacer que al poner en el TexBox el NIE que son 7 números me sume la variable del primer ComboBox LETRA me calcule la letra final para colocarla en el TexBox que corresponte?

Yo hice esto pero no consigo que me funcione.

Código:

Public Function NumLetrNIE()

        Dim a As Integer

        If Form_Nuevo_Usuario.CB_L_NIE.SelectedIndex = 0 Then
            a = Str(CInt(0))
            If Form_Nuevo_Usuario.CB_L_NIE.SelectedIndex = 1 Then
                a = Str(CInt(1))
                If Form_Nuevo_Usuario.CB_L_NIE.SelectedIndex = 2 Then
                    a = Str(CInt(2))
                End If
            End If
        End If

        Return a

Después tengo este otro.

Código:

Public Function Valida_NIE(ByVal NIE As TextBox)

        Dim i As Char
        i = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (CInt(NIE.Text) Mod 23) + 1, 1)
        Return i


    End Function

Y debería concatenar "a" con "i" para calcular y sacar la letra final peron o logro que camine.

Alguna ayuda por favor


Muchas gracias.