Gracias gente ya lo he averiguado;
por si a alguien le vale es algo muy sencillo.
Consiste en sacar el mod del DNI / 23
y localizar esta posicion en una cadena fija de letras, algo asin...
letras = "TRWAGMYFPDXBNJZSQVHLCKE"
DNI = text1.text
valor = DNI Mod 23
res = Mid(letras, valor + 1, 1)
Text1.Text = DNI & " - " & res
Espero que le valga a alguien.