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

Sub String_Assignment()
Dim myString$
    'Here, myString is created and equal ""

    'assignments :
    myString = vbNullString     'return : ""
    myString = "Hello World"    'return : "Hello World"
    myString = String(12, "A")  'return : "AAAAAAAAAAAA"
End Sub