Código de guardado de VB, soy un novato aficionado, pero necesito este código con urgencia, los detalles son los siguientes:

Private Sub Command1_Click()

datos atenuados

data=text1.text

Abrir "d ：\ text1.txt" Para salida como #1

Imprimir #1, datos

Cerrar #1

answer = MsgBox("He guardado la página web código fuente a d:\text1.txt", 0, "Recordatorio amistoso")

Imprimir respuesta

End Sub