Código:
Private Sub Form_Load()
Dim sData As String
Open "c:\test.txt" For Binary Access Read As #1
sData = Space(LOF(1))
Get #1, , sData
sData = Split(sData, vbCrLf)(1)
Close #1
Debug.Print sData
End Sub
|
|||
|
Tema destacado: Introducción a la Factorización De Semiprimos (RSA) |
|
|