Asignar nombre a archivo comprimido.

[davidalonsso05]

Buen dìa!
Vengo con la siguiente duda, al momento de comprimir un archivo en una aplicacion de vb.net 2005 si es un .txt me guarda el archivo con el nombre del archivo que comprimi, mas la extension, por ejemplo.
Comprimo un archivo de Word llamado Tarea 1, me lo guarda como Tarea 1.doc (el nombre del archivo comprimido) en lugar de solamente Tarea 1, si funciona bien el programa ya que si comprime y se encuentra el archivo dentro, solamente quiero que aparesca con el nombre del archivo, sin la extension, no es el windows ya lo verifique, pongo el codigo:

Código vb:

Imports Ionic.Zip
Imports System.IO
Imports Ionic.BZip2
 Private Sub Comprimir()
        Using zip As ZipFile = New ZipFile()
            zip.AddFile(Me.TextBox1.Text, "")
            Me.TextBox2.Text = Me.TextBox1.Text
            zip.Save(TextBox2.Text & ".zip")
        End Using
    End Sub
 
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
 
        Dim strm As System.IO.Stream
        strm = OpenFileDialog1.OpenFile()
        TextBox1.Text = OpenFileDialog1.FileName.ToString()
 
        If Not (strm Is Nothing) Then
            'insert code to read the file data
            strm.Close()
            MessageBox.Show("Archivo Seleccionado")
        End If
    End Sub
 
Private Sub btComprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btComprimir.Click
        Try
            If TextBox1.Text = "" Then
                MessageBox.Show("Verifique la informacion completa")
            Else
 
                Comprimir()
               
            End If
            TextBox1.Clear()
          
 
        Catch
            Comprimir()
        Finally
        End Try
    End Sub
 
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        OpenFileDialog1.Title = "Seleccione un archivo"
        OpenFileDialog1.InitialDirectory = "C:temp"
 
        OpenFileDialog1.ShowDialog()
 
    End Sub
 

Saludos!