Public Class RegExport
    Private Shared sw As IO.StreamWriter
    Private Shared Sub WriteKeyValues(ByVal key As String)
        Dim reg As Microsoft.Win32.RegistryKey = _
          Microsoft.Win32.Registry.CurrentUser.OpenSubKey(key)
        Dim s As String = "[" + key + "]" + System.Environment.NewLine
        Dim value As Object
        Dim c As Char = Chr(34)
        For Each val As String In reg.GetValueNames()
            value = reg.GetValue(val, c + c)
            If Not TypeOf value Is Array Then
                s += c + val + c + " = " + c + value.ToString + c + _
                  System.Environment.NewLine
                sw.WriteLine(s)
            End If
        Next
    End Sub
    Public Shared Sub ExportRegKeys(ByVal RegistryKey As _
      Microsoft.Win32.RegistryKey, ByVal Key As String, ByVal Path As String, _
      ByVal WithSubKeys As Boolean)
        Dim reg As Microsoft.Win32.RegistryKey = RegistryKey.OpenSubKey(Key)
        Try
            sw = New IO.StreamWriter(Path)
            If WithSubKeys Then
                For Each current_key As String In reg.GetSubKeyNames
                    WriteKeyValues(Key + "\" + current_key)
                Next
            Else
                WriteKeyValues(Key)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            sw.Close()
        End Try
    End Sub
End Class

RegExport.ExportRegKeys(Microsoft.Win32.Registry.CurrentUser, _
  "Software\Microsoft\Internet Explorer", "C:\Filter.reg", False)