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

Sub Creation_String_FirstWay()
Dim myString As String
    'Here, myString is created and equal ""

End Sub '==> Here the string is destructed !