Sub ConcactenateStrings()
    Dim String1, String2, Stringstogether
    String1 = Range("C3")
    String2 = "00000"
    Stringstogether = String1 & String2
    ActiveCell = Stringstogether
End Sub