Icon File Extractor

   Dim s As New OpenFileDialog
        If s.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image = Icon.ExtractAssociatedIcon(s.FileName).ToBitmap()
            extractpath = s.FileName
            TextBox1.Text = s.FileName
        End If

  Dim s As New SaveFileDialog
        If s.ShowDialog = Windows.Forms.DialogResult.OK Then
            savepath = s.FileName
            TextBox2.Text = s.FileName
        End If

   If savepath = Nothing Then
            MsgBox("Select a path to save the icon first", MsgBoxStyle.Critical, "Select path!")
            Exit Sub
        End If
        If extractpath = Nothing Then
            MsgBox("Select a path to extract the icon from", MsgBoxStyle.Critical, "Select path!")
            Exit Sub
        End If

        Try
            Dim bm As New Bitmap(PictureBox1.Image)
            Dim ico As Icon = Icon.FromHandle(bm.GetHicon)
            Dim fs As New System****.FileStream(savepath & ".ico", IO.FileMode.CreateNew)
            ico.Save(fs)
            fs.Close()
        Catch ex As Exception
            MsgBox("A following error occured: " & vbCrLf & vbCrLf & ex.ToString)
        End Try
    End Sub