Sub plusDemo() Dim zip As String Dim zipx As String zip = 55555 zipx = 4444 newzip = str(zip) + str(zipx) End Sub