SoloCodigo

Hola amigos tengo un problemita, tengo un textbox1 x ejm, en el cual quiero que me acepten solo numeros, el codigo que realize es el que va aqui bajo, funciona pero el problema es que cuando presiono la tecla enter en el va a señalar el enfoque a otro control, cuando abandona el enfoque lo q escrito se oculta a la izquierda del textbox1 y lo q quisiera es q no se oculte que permanesca como lo que escrito. cualquier ayuda gracias

private sub textbox1_keypress( keyascii as integer.......)
   select case keyascii
       case 48 to 57
       case 8
       case 13
             textbox2.setfocus
       case else
             keyascci=0
   end select
end sub