Help with formating using VBA

[spike250]

Hi all,

I have the following code and most of it works apart from the last part to add an * to the end of the line.

Does anyone have any idea how I can get it to add the * at the end of the text box.

It displays the first one but not the last one?

txtLabel1 = "*IQA" & Format(txtLabel1, "000") & Format(txtLabel1, "/10") _
& Format(txtLabel1, "*")

Regards

Spike

 

[G81]

Hi all,

I have the following code and most of it works apart from the last part to add an * to the end of the line.

Does anyone have any idea how I can get it to add the * at the end of the text box.

It displays the first one but not the last one?

txtLabel1 = "*IQA" & Format(txtLabel1, "000") & Format(txtLabel1, "/10") _
& Format(txtLabel1, "*")

Regards

Spike

Try using this at the end of your statement:

& "*"

instead of

Format(txtLabel1, "*")

 

[spike250]

Hi,

Thanks for the quick reply.

Works a treat.

Thanks again.

Spike