Private sub botonqueescribiraenarchivoendiscoc_click()
    Dim nombredelarchivoenelqueseescribira as string
    Dim paraalmacenarlodelastextboxs as string
    Dim ff as long
    nombredelarchivoenelqueseescribira = "C:\elarchivopuntotxt.txt" 
    paraalmacenarlodelastextboxs = Text1.Text & Text2.Text
    ff = Freefile
    Open nombredelarchivoenelqueseescribira for binary as ff
    Put ff,, paraalmacenarlodelastextboxs
    close ff
End sub