Combine 2 var into 1 string with & in between

[bumbum2812]

Hi Experts Please help me combine 2 var into 1 string with & in between.
My data is from A1:A2 & i have below code to put in MsgBox.

 Sub abc() 
Dim lr3   As Long 
Dim var As Variant 
lr3 = Range("A" & Rows.Count).End(xlUp).Row 
For Each var In Sheets("Sheet1").Range("A1:A" & lr3)     
MsgBox var 
Next var
 End Sub

Any help will be so much apricated

 

[bumbum2812]

Oops, missed the Not

   If Not IsArray(Ary) Then
      txt = Ary
   ElseIf Len(Join(Ary, "&")) > 200 Then
      txt = "Multiple jobs"
   Else
      txt = Join(Ary, "&")
   End If
   .Subject = txt

You are god, Thank you Sir.

 

[Fluff]

You're welcome & thanks for the feedback.