Programación VB: escriba un código para verificar si el usuario ingresa correctamente el número de teléfono móvil que comienza con 136 y proporcione el resultado de la verificación en la página

Subcomando privado1_Click()

Atenuar x como cadena

x = InputBox("Ingrese un número", , 13622012345#)

Si IsNumeric(x) y Len(x) = 11 y Left(x, 3) = 136 entonces

MsgBox "El número de teléfono móvil 136 es correcto:" & x

Else

MsgBox "Número incorrecto"

Fin si

Fin Sub