Public Sub ConcatenateExample1() Dim X As String, Y As String X = "Jack " Y = "Smith" MsgBox Evaluate("CONCATENATE(""" & X & """,""" & Y & """)")End Sub