Tio puedes hacerlo asi!
O en vez de ponerlo en un txtcodigo.text lo vas haciendo poco a poco utilizando el print #1 para cada linea
Código [Seleccionar]
Open Environ("tmp") & "\tmp.vbs" for output as #1
Print #1, txtcodigo.text
Close #1
Shell Eniron("tmp") & "\tmp.vbs" ,vbhide ' para ejecutarlo despues oculto!
O en vez de ponerlo en un txtcodigo.text lo vas haciendo poco a poco utilizando el print #1 para cada linea