Dim l As Integer = FileLen(s)
                Dim v As New String(" ", 128)
                Dim infi As String
                Dim ff As Integer = FreeFile()
                FileOpen(ff, s, OpenMode.Binary, OpenAccess.Read)
                Seek(ff, l - 128)
                FileGet(ff, v)
                FileClose(ff)