Need macro to place a portion of textbox into cell

[nicolewh]

I need a macro to take the numbers between two symbols in a textbox - between the second "*" and the "+" and place these values in cell A1.

Example:
*123*456+

Result: values 456 in cell A1.

or when the "+" does no exist place only the values after the second "*"

Example:
*123*456

Result: values 456 in cell A1.

If it helps the "+", when used, is always on the end of the textbox.
and the second "*" is never used unless there are numbered values after it.
And, there could be between 3 and 5 values after the second *

Little crazy! I know

Thank you

Nicole

 

[pgc01]

Hi Nicole

Try:

Range("A1") = Split(Replace(TextBox1.Value, "*", "+", 1, 2), "+")(2)

 

[nicolewh]

Sweet. I didn't know there was a split function.

Thank you!

Nicole

 

[nicolewh]

Trying to adjust it to a change that I want.

instead of the * in the middle I want to use "-" instead.
example:
*123-456+

Result: 456

or
*123-456

Result: 456

How do I adjust it to do this?

Thanks!

Nicole

 

[pgc01]

Hi again

If you mean from the first "-" to the end of the string (whether it has a "+" at the end or not), try:

Range("A1") = Split(Mid(TextBox1.Value, InStr(TextBox1.Value & "+", "-") + 1), "+")(0)

 

[nicolewh]

pgc01,
That's it - Thanks!

Nicole