Cómo escribir código para exportar txt (documento de texto) en vb

Finalizar SubPrivate Sub Command2_Click()

Abrir App.Path amp; "\Save.txt " para anexar como #1

Imprimir #1, Texto1. Texto

Cerrar #1

Fin Sub

Sub Etiqueta privada1_Click()

Text1.BackColor = Label1.BackColorCase 2 'Botón de consulta

bookmark = Adodc1.Recordset.bookmark

m_name = InputBox("Ingrese un nombre de cliente", "Buscar por nombre de cliente")

If m_name = "" Entonces

Salir del niño

Finalizar si

Adodc1.Recordset.MoveFirst

dacomlxdh.Enabled = No bval

'userDataList.Enabled = No bval

DataGrid1.Enabled = bval

Si bval Entonces

cmdkh(5).Caption = "Salir"

Else

cmdkh(5).Caption = "Cancelar"

Finalizar si

Salir Sub

Fin Sub 'Realizar verificación de campo después de agregar o modificar registros en la gestión de clientes'

Función privada khcheck() como booleano

Dim id como entero

Dim str como cadena

Dim note(2) As String

note(0) = "¡El nombre del cliente no existe!"

note(0) = "El nombre del cliente no puede ¡existe!

note(1) = "¡El nombre del cliente ya existe! "

khcheck = False

Si dacomkhmc.Text = "" Entonces

MsgBox note(0)

dacomkhmc.SetFocus p>

Salir de la función

Finalizar si

id = Adodc1.Recordset.Fields("xuhao")

Si addrecord = True Entonces

str = "select * from yys donde khmc='" amp; dacomkhmc.Text amp "'"

Establecer rs = conn.Execute(str)