Alternative to concatenate

Hi,

I'm looking to take a long list of e-mail addresses, probably 100 orso, that will be in Cell A2 downwards, one by one. In non-VB I would've used the concatenate formula to combine them all with a "; " in between, so I could then copy-paste in Outlook.

I know this isn't available in VB, so I was wondering if there's an obvious way to do this? My current longwinded solution is:

LValue = Worksheets("Results").Range("A2") & "; " & Worksheets("Results").Range("A2")

Worksheets("Results").Range("A102") = LValue