09-05-2008, 08:36 PM
Not really...
(really not sure about the Mid function from the top of my head)
Whatever = (pull information code)
For I = 1 To Len(Whatever)
If Mid(Whatever, I, 1) = "SomeCharacterYouLookingFor" Then
Whatever2 = Mid(Whatever, I, 3)
End If
Next I
Replace the SomeCharacterYouLookingFor with the first character you want to look for (example - 2). So look for 2 and then you should expect the length of how long it will be (like 200 is 3) so you make Whatever2 where that 200 would be...
I repeat: Not sure about the Mid function without VB6 up.
(really not sure about the Mid function from the top of my head)
Whatever = (pull information code)
For I = 1 To Len(Whatever)
If Mid(Whatever, I, 1) = "SomeCharacterYouLookingFor" Then
Whatever2 = Mid(Whatever, I, 3)
End If
Next I
Replace the SomeCharacterYouLookingFor with the first character you want to look for (example - 2). So look for 2 and then you should expect the length of how long it will be (like 200 is 3) so you make Whatever2 where that 200 would be...
I repeat: Not sure about the Mid function without VB6 up.