---

Function stringVerkettung() As String
    Dim s1 As String
    Dim s2 As String
    Dim s3 As String
    s1 = "ab"
    s2 = "cd"
    s3 = s1 & s2
    stringVerkettung = s3
End Function

---