Paso 13: Lectura de texto
Dim Textstring
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile ("fichero.txt", 1)
Textstring = objText.ReadAll
Dim Textstring
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile ("fichero.txt", 1)
Textstring = objText.ReadAll