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 Key As String, ByVal Path As _
          String)
            Dim reg As Microsoft.Win32.RegistryKey = _
            Microsoft.Win32.Registry.CurrentUser.OpenSubKey(Key)
            Try
                sw = New IO.StreamWriter(Path)
                For Each current_key As String In reg.GetSubKeyNames
                    WriteKeyValues(Key + current_key)
                Next
            Catch ex As Exception
                MessageBox.Show(ex.ToString)
            Finally
                sw.Close()
            End Try
        End Sub
    End Class

   Dim a As String = "{XXXX-YYYY}"
   Dim key As String = "Identities\" + a + "\Software\Microsoft\Outlook" & _
     "Express\5.0\"
   RegExport.ExportRegKeys(key, "C:\export.reg")