1
Compruebe que el cuadro de texto contiene un número:
Si IsNumeric ( Text1.Text ) Entonces
La función IsNumeric determina si una cadena contiene un valor numérico . Esto es importante porque intenta convertir una cadena no numérica en un entero causaría un error
2
convertir la propiedad Text del control TextBox en un número entero : .
PIN = CDbl (Texto1 . Texto )
la función CDbl convierte un valor numérico en un número decimal
3
Establezca la variable a un valor predeterminado si la propiedad Text no es numérico : .
demás
PIN
= 0
End If
también puede alertar al usuario en este punto que se ha introducido un valor no válido .