Cambio de letra VB

Por ejemplo, si ingresa un 5, A se convierte en F, y si excede Z, continúa ABCDE...

Primero toma el valor ASC de cada letra y suma el número ingresado aa, como asc ( "Y")=89 de "Y ", 5 = 94 gt; asc("Z")=90, 94-90 asc("A")=4 54=58, chr(58)=D