Visual Basic - Para los avanzados en funciones

Hola, vamos a ver... lo que quiero hacer es lo siguiente

tengo una línea de 43 números. (text1.Text)
Desecho el primero de la izquierda y los dos últimos

Texto = Mid(Text1, 2, 40)

Bien, ahora ya tengo el texto que necesito (Los 40 números).
Lo que quiero hacer ahora es separar esos 40 números en parejas (2 a 2) consecutivamente, es decir...

123456....

en parejas

12 34 56 .....

Pero no se donde meterlos, porque una vez separados tengo que sumar las 20 parejas resultantes y colocar la suma resultante en otro texbox.:

Ejemplo gráfico:

1234567890123456789012345678901234567890

12+34+56+78+90+12+34+56+78+90+12+34+56+78+90+12+34+56+78+90 = 1080

Pues es eso.

Muchas gracias.

'Se me ocurre la siguiente idea... _
Creas dos variables

Dim var1 as Integer
Dim var2 as Long
var1 = 1
var2 = 0
'Creas un bucle para extraer las parejas
For var1 = 1 to 40 Step 2
var2 = var2 + Val(Left(Text1, var1) + Val(Left(Text1, var1 + 1)
next
La suma de todos los números estará contenida después del bucle en la variable VAR2.
No se si te servirá......... Se me ocurre algo así.... Espero que al menos te oriente algo............ ;) Anthigona

Al principio me daba error de sintaxis, una vez lo arreglé... me provoca desbordamiento... gracias de todos modos...

En sí lo que tiene que hacer es por ejemplo

2345

cojer 23 por un lado
y 45 por el otro
y sumarlos
total = 68

Solo que cogerá 20 parejas de números y las sumará.

Estimado amigo, te envío a tu dirección de correo un pequeño código que espero te sirva.

Saludos Pola