Label1.Text = "Datei TEST.zip auswählen!!!"
        Using ofd As New OpenFileDialog
            ofd.Filter = "TEST|*.zip"
            If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim file As String = ofd.FileName
                Dim cu As New ClassUnzip(file, Path.Combine( _
                  Path.GetDirectoryName(file), "test_unzip_folder"))
                AddHandler cu.UnzipFinishd, AddressOf Unziped
                cu.UnzipNow()
            End If
        End Using
------------------------------------------
    Private Sub Unziped()
        MessageBox.Show("Unzipping finished")
End Sub