Sub TestEvaluateVBA3_n1n2n3()
Dim RangeH3H4**As Range, RangeB3B4 As Range, RangeC3C4 As Range, RangeD3D4 As Range
Set RangeH3H4 = Range("H3:H4")
Set RangeB3B4 = Range("B3:B4")
Set RangeC3C4 = Range("C3:C4")
Set RangeD3D4 = Range("D3:D4")
RangeH3H4 = Evaluate("**" & RangeB3B4.Address & "** " & "&""****""&" & "**** " & RangeC3C4.Address & "" & "&""****""&" & "" & RangeD3D4.Address & "")
End Sub

Sub TestEvaluateVBA3_n1n2n3()
Dim RangeH3H4**As Range, RangeB3B4 As Range, RangeC3C4 As Range, RangeD3D4 As Range
Set RangeH3H4 = Range("H3:H4")
Set RangeB3B4 = Range("B3:B4")
Set RangeC3C4 = Range("C3:C4")
Set RangeD3D4 = Range("D3:D4")
RangeH3H4 = Evaluate("**" & RangeB3B4.Address & "** " & "&""****""&" & "**** " & RangeC3C4.Address & "" & "&""****""&" & "" & RangeD3D4.Address & "")
End Sub