[RESOLVED] Trimming characters from a string

[braabe01]

If I input the string 2006-03894 from a file, how can I trim the string so that the result is 2006?

Thank you,

Ed

[RhinoBull]

Left$() will work:

Debug.Print Left$("2006-03894", Instr(1, "2006-03894", "-") - 1)

[The Hobo]

Left$() will work:

Bah! When will the symbols die?

[RhinoBull]

In VB6 never!
In case you never knew - there are two Left funtions: one return variant (Left) and one return string (Left$). Same for Mid/Mid$ and some others.

[Static]

so will split

DIm tmp() as string
tmp = Split("2006-03894", "-")
Msgbox tmp(0)