Left function

[AndyC]

In my program I have strings like " 49 49 13 49 23 49" without the quotes and I use Trim to take away spaces then Left to take the first two numbers but how can I "cut" the numbers out of the string?

Andy

[chrisjk]

try using

MyString = Right(MyString, Len(MyString) - 2)

This works my taking the original MyString minus 2 characters and placing it back in MyString. There is probably a "better" way of doing it, but it works fine for me.

Regards,

------------------
- Chris
chris.kilhams@btinternet.com
If it ain't broke - don't fix it :)

[Clunietp]

you can extract the numbers into an array using the VB6 split function:

Dim strTemp As String
Dim strArray() As String
Dim I As Integer

strTemp = " 49 49 13 49 23 49"

strArray() = Split(strTemp, " ")

For I = LBound(strArray) To UBound(strArray)
Debug.Print strArray(I)
Next I

[XxEvilxX]

or you can do this

Dim I
Dim H

H + Text1.text
I = Mid(H,1,1)

Text2.text = I