Public Class RegExport
    Private Shared sw As IO.StreamWriter
    Private Shared Sub WriteKeyValues(ByVal RegistryKey As _
      Microsoft.Win32.RegistryKey, ByVal key As String)
        Dim reg As Microsoft.Win32.RegistryKey = _
        Microsoft.Win32.Registry.CurrentUser.OpenSubKey(key)
        Dim s As String = "[" + RegistryKey.Name + "\" + 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
            End If
        Next
        sw.WriteLine(s)
    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)
            WriteKeyValues(RegistryKey, Key)
            If WithSubKeys Then
                For Each current_key As String In reg.GetSubKeyNames
                    WriteKeyValues(RegistryKey, Key + "\" + current_key)
                Next
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            sw.Close()
            reg.Close()
        End Try
    End Sub
End Class

Dim a As String = "{XXXX-AAAA-YYYY}"
RegExport.ExportRegKeys(Microsoft.Win32.Registry.CurrentUser, "Identities\" + a _
  + "\Software\Microsoft\Outlook Express\5.0", "C:\filter.reg", False)