Sub Creation_String_FirstWay() Dim myString As String 'Here, myString is created and equal "" End Sub '==> Here the string is destructed !