Public Sub btnSELECepub_Click()
If Dialog.OpenFile() Then Return
txtRUTAepub.Text = Dialog.Path
End
Public Sub btnCHECKEAR_Click()
Dim hproceso As Process
hproceso = Shell ("epubcheck" & "4" & "txtRUTAepub.text") For Read As "Proceso"
End
Public Sub Proceso_read()
Dim salida As String
txtRESULTADOS.ReadOnly = True
salida = Read #Last, Lof(Last)
txtRESULTADOS.text &= salida
End