Sub concat() Dim strFirstname As String Dim strLastName As String Dim strFullName As String strFirstname = "John" strLastName = "Smith" strFullName = strFirstname & " " & strLastName Debug.Print strFullName End Sub