Preguntas sobre programación de archivos de datos VB

Subcomando privado1_Click() Abra "C:\Users\Administrator\Desktop\Candidate Folder\YY.txt" para entrada como #1

Text1.Text = StrConv(InputB ( LOF(1), 1), vbUnicode) Cerrar #1

End Sub

Subcomando privado2_Click() Dim c como cadena, S como entero para i = 1 a Len( Texto1 )

Si Asc(Mid(Text1.Text, i, 1)) >= 65 Y Asc(Mid(Text1.Text, i, 1)) = 97 Y Asc(Mid(Text1.Text , i, 1)) <= 122 O Asc(Mid(Text1.Text, i, 1)) = 10 O Asc(Mid(Text1.Text, i, 1)) = 13 Entonces S = S + 1 Siguiente i Label1. Caption = "***" & Len(Text1.Text) - S & "Letras no inglesas"

End Sub