VBBD_Ejercicio 01 - Editor Sencillo

Private Sub cmdGuardar_Click()
On Error GoTo ErrorDesconocido

Open "C:\DATOS.DOC" For Output As #1

Print #1, Text1.Text

Close #1

MsgBox ("Los datos han sido guardado.")

Exit Sub
ErrorDesconocido:
    MsgBox ("Ha ocurrido un error al intentar guardar el archivo.")

End Sub

Private Sub cmdSalir_Click()
End
End Sub