I have data string that I must convert to numeric values.

Ex:
00100200300400500600700800901000110015016

How do I get the above data string example to return the numeric values that
are three digit integers.

How do I get the number 16 for example?

Any assistance is appreciated

--
JenISCM

Try this:

Public Sub MySplit(txtIn As String)
' copy/paste to a standard module
' input from debug window:
' call mysplit("00100200300400500600700800901000110015016")

Dim i As Integer
Dim n As Integer

i = 1
For n = 1 To CInt(Len(txtIn) / 3)
Debug.Print n & " - " & val(Mid(txtIn, i, 3))
i = i + 3
Next n
End Sub

Bob

JenISCM wrote:
>I have data string that I must convert to numeric values.
>
>Ex:
>00100200300400500600700800901000110015016
>
>How do I get the above data string example to return the numeric values that
>are three digit integers.
>
>How do I get the number 16 for example?
>
>Any assistance is appreciated
>

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200801/1

On Wed, 9 Jan 2008 07:28:03 -0800, JenISCM <(E-Mail Removed)>
wrote:

>I have data string that I must convert to numeric values.
>
>Ex:
>00100200300400500600700800901000110015016
>
>How do I get the above data string example to return the numeric values that
>are three digit integers.
>
>How do I get the number 16 for example?
>
>Any assistance is appreciated

How long is a string? will it always be 48 characters long, or is it variable?

Val(Mid([string], 3*([Which number:] - 1), 3))

will prompt you for which substring you want and return the value in that
substring, if that helps you.

John W. Vinson [MVP]