You might find the FastZip class defined in the library to be quite useful - you could pretty much do something like
Dim fz as new FastZip
fs.ExtractZip(filetextbox.text, "c:\", "myfile.txt")
and it should work...
If you do need more control then you would need to read from the file / write to your file yourself...
Dim MyZip As New ZipInputStream(File.OpenRead(FileTextBox.Text))
Dim EntryObject As ZipEntry = MyZip.GetNextEntry
While (IsNothing(EntryObject) = False)
If EntryObject.IsFile And EntryObject.Name = "mtfile.txt" Then
Dim MyFileStream As FileStream = New System.IO.FileStream("myfile.txt", FileMode.Create)
Dim count As Integer
Dim buffer(4096) As Byte
count = MyZip.Read(buffer, 0, 4096)
While count > 0
MyFileStream.Write(buffer, 0, count)
count = MyZip.Read(buffer, 0, 4096)
End While
MyFileStream.Close()
End If
EntryObject = MyZip.GetNextEntry
End While
MyZip.Close()