Get Number

[shapper]

Hello,

I have images which names are "img1", "img2", ..., "img10", ... "img36"

So as you can see from "img1" to "img9" the names have only one number.
From "img10" to "img36" the names have 2 numbers.

I can't change this.

I was getting the number as follows:
Dim value As Integer
value = Right(ImageName, 2).ToInteger

But I get an error on the first cases.

How can I solve this?

Thanks.
Miguel

[NBVC]

I think you can use Mid()

=Mid(ImageName, 4)

[Charlize]

Sub img_number()
MsgBox Split(imagename, "img")(1)
End Sub

Charlize