How to Select Characters in vb6 with max letter?

[ryan_09]

i would like to select all numbers in a line not exceeding the dot(".")
like whats in the picture...
character.JPG

please refer blue text as selected....
tnx in advance ...