hola, oye que trabalenguas el texto, jejeje pero bueno haber
Código vb:
Ver originalx = Application("var").ToString().SubString(0,2)
con eso obtendrias los dos primeros numero, ahora solo es cuestion de crear un ciclo para incrementar las posiciones como si fuera un array.
saludo