Option Explicit
Sub zeichenkettenOperatoren()
    'Dies ist ein Testprogramm fuer
    'Zeichenketten-Operatoren
    'Dateiname: zeichenkettenOperator
    Dim s1$
    Dim s2$
    Dim s3$
    Dim i%
    s1 = "abcd"
    s2 = "efg"
    i = 9
    s3 = s1 + s2
    MsgBox ("Strings verbinden: " + s3)
    s3 = s1 & i
    MsgBox ("String mit Integer verbinden: " & s3)
End Sub