Problemas de aplicación de la función Val en VB

Uso: función Mid()

Mid(S, N, K)

S-variable de cadena

n, K ---- Variable entera

Función, comenzando desde el enésimo carácter de la cadena S, saca k caracteres consecutivos

Supuesto:

s = " 6666 abcd 1234 abcd 5678 abcd"

L = Len(s)

Ns = ""

Para i = 1 a L

si mid(s,i,1)>="0" Y mid(s,i,1)<="9" Entonces

Ns = Ns & mid(s,i, 1)

finalizar si

siguiente i

Imprimir Ns