Visual Basic - Sumar Numeros Que Tengan Letras

Hola, bueno tengo un inconveniente hace unos dias, y es que resulta que tengo una dato como este:

OD00001

como hago para que ese dato sea sumado como un numero normal y que si el dato llega a
OD99999, ya no haga nada mas

Otro dato que tengo que sumar es algo como esto

000501

si se suma quedaria asi: 000502
asi sucesivamente hasta llegar a 999999

gracias por su ayuda....

Para sumar en Visual Basic, debe tener estrictamente numeros osea que al valor que deseas sumar debes aplicarle la propiedad Val(string), para convertir la cadena en numerico; despues para presentralo solo le vuelves a dar formato como necesitas; no se si algo asi quieres hacer, espero haber entendido tu duda y que esto te ayude, cualquier cosa estoy a tus ordenes.

efectivamente eso es lo que tengo que hacer, lo que nose es como hacer ese "formato" para que quede como antes por ej:

en OD00001 si le aplico

Val(OD00001) + 1 quedaria la variable como 2

pero para "retornar" al formato nose como hacerlo, que en este casi quedaria OD00002

Usa el format (valornumerico,"OD00000") solo tienes que tomar en cuenta que tu numero no sobre pase de 5 digitos para que el formato no se pierda.

primero que todo gracias por responder, pero lastimosamente todavia no he podido con esto, el valor me lo dan asi porque es para las Ordenes de Diagnostico que se vallan a imprimir....

hice este intento pero el resultado no me da

Dim prueba As Integer

Private Sub Command1_Click()

'label1.caption tiene como valor OD000150

prueba = Val(Right(Label1.Caption, Len(Label1.Caption) - 2)) 'la var queda como 150
Label2 = Format(prueba, "OD000000") 'el resultado que me da es O29000000 :(

End Sub


Espero que nosea mucha molestia seguir preguntando....

Otra forma.

Private Sub Command3_Click()
Dim prueba As Integer


variable1 = "OD000150"

prueba = Val(Right(variable1, Len(variable1) - 2)) 'la var queda como 150
variable2 = "OD" & Format(prueba, "000000") 'el resultado que me da es OD000150

MsgBox variable2
End Sub

Exactamente lo que dice Julio, ese mismo ejemplo habia yo sacado y me da lo que necesitas

Private Sub Command1_Click()
'label1.caption tiene como valor OD000150
Dim prueba As Integer
prueba = Val(Right("OD000150", Len("OD000150") - 2)) 'la var queda como 150
label2.Text = "OD" & Format(Str(prueba), "000000")

End Sub

Asi que veo que ya teienes la respuesta suerte y si necesitas ayuda ya sabes donde encontrarme [email protected]

Muchisimas gracias a julio y a usted wendy chulim, me sirvio bastante esa explicacion asi que les agradezco mucho :)