conversión de texto a entero corto

Hola a todos,

Tengo un formulario con un campo de texto en el cual
quiero introducir un número que esté en el rango de 0 a
65000, es decir un entero corto de 2 bytes.
He hecho lo siguiente
Cshort(me.txtnumero.text)
pero cshort convierte a un entero que va de -32.768 a
32.767.
También he intentado convertir el tipo de string a uint16
con Ctype(me.txtnumero.text, uint16)
¿alguien podría decirme si hay alguna instrucción similar
a cshort pero para números sin signo?

Un saludo