RosettaCodeData/Task/Binary-strings/VBA/binary-strings-5.vba

Sub String_Clone_Copy()
Dim A As String, B$
    A = "Hello world!"
    'cloning :
    B = A
End Sub