Hogyan lehetne ezt kijavítani?

Hogyan lehetne azt megoldani hogy a b változót beírja a fájl-ba? (A *****-gal jelölt sorban)

dim b

b = "asd"

Set fso = CreateObject("Scripting.FileSystemObject" )

Set file = fso.OpenTextFile("C:\Documents and Settings\Erika\Asztal\Új mappa\Próba.vbs",2,1)

file.WriteLine ("do")

file.WriteLine ("dim pw")

file.WriteLine (("pw ")+chr (34) (""& b &"") +chr (34)) *****

file.WriteLine ("r"+chr (61) ("Inputbox")+chr (40)+chr (34)("Kérem a jelszót")+chr (34)+chr (44)+chr (34)("Indító")+chr (41))

set file = nothing

set fso = nothing