Crear texto

[IngSerrano]

Hola que tal, estoy intentando crear un .bat con vb, pero tengo un pequeño problema, cheken el codigo:

'Declaro Variable
Dim Cad1 As String
Dim Cad2 As String

'Asigno Valores
Cad1 = "10101010"
'¿porque a esta variable se le asigna este numero binario?
Cad2 = "TIMEOUT 3" & vbNewLine & "ATTRIB +H " & Application.CurrentProject.Path & "\APP.BAT"
'Texto que quiero insertar en el .bat

Open Application.CurrentProject.Path & "\Prueba.bat" For Output As #1
Write #1, Cad2 [COLOR="rgb(46, 139, 87)"]
Close #1 [COLOR="rgb(46, 139, 87)"]


El problema esta en que el texto que finalmente queda en el .bat sale asi:
"TIMEOUT 3
ATTRIB + H C:\Users\Serrano\Documents\APP.BAT"
Con comillas al principio y al final, no se como hacer para que las comillas no salga ahi. Graciass