Visual Basic - Fórmula para calcular letra dni

Hola, estoy haciendo una aplicación y necesito que al crear un nuevo cliente al escribir el número de dni automaticamente me salga en otra caja de texto la letra del dni. Por favor, si alguien sabe la fórmula escribidme. !!Gracias!!!

La fórmula sería Letra = DNI Mod 23 donde Letra puede tomar los siguientes valores 0 = "T", 1 = "R", 2 = "W", 3 = "A", 4 = "G", 5 = "M", 6 = "Y", 7 = "F", 8 = "P", 9 = "D", 10 = "X", 11 = "B", 12 = "N", 13 = "J", 14 = "Z", 15 = "S", 16 = "Q", 17 = "V", 18 = "H", 19 = "L", 20 = "C", 21 = "K", 22 = "E", y un ejemplo sería :

Const Letras = "TRWAGMYFPDXBNJZSQVHLCKE"
LetraDNI = Mid$(Letras, ((NumeroDNI Mod 23) + 1), 1)