Visual Basic - Codigo del tipico DNI

¿Alguien me puede enviar el típico codigo de VB para calcular la letra del DNI? Para poder insertar el numero de 8 cifras y que automaticamente salga la letra. Gracias.

letras(0) = "T"
letras(1) = "R"
letras(2) = "W"
letras(3) = "A"
letras(4) = "G"
letras(5) = "M"
letras(6) = "Y"
letras(7) = "F"
letras(8) = "P"
letras(9) = "D"
letras(10) = "X"
letras(11) = "B"
letras(12) = "N"
letras(13) = "J"
letras(14) = "Z"
letras(15) = "S"
letras(16) = "Q"
letras(17) = "V"
letras(18) = "H"
letras(19) = "L"
letras(20) = "C"
letras(21) = "K"
letras(22) = "E"
resto = CInt(txtdni) Mod 23
txtletra = letras(resto)

Public Function LetraNif(Num As String)
Dim L As Double
Dim DNI As Double
DNI = Val(Num)
L = DNI - (Int(DNI / 23) * 23)
LetraNif = Mid$("TRWAGMYFPDXBNJZSQVHLCKEI", L + 1, 1)
End Function