Private Sub Command1_Click()
Dim Data As String
Dim file As Data
Dim size As String
Dim filesize As Integer
Dim curpos As Long

List1.AddItem "Checking files..."
lblStatus.Caption = "Reading " & Str(FileLen(txtInput)) & " bytes"
List1.AddItem Str(FileLen(txtInput)) & "bytes"
size = Str(FileLen(txtInput))
filesize = Int(Trim(size))
curpos = 1

End Sub