Sub addKeys(ByVal w As IO.StreamWriter, ByVal path As String, ByVal regkey As RegistryKey)
Try
Dim format As String = "{0}|||{1}|||{2}|||{3}"
For Each name As String In regkey.GetValueNames
w.WriteLine(String.Format(format, path, name, regkey.GetValueKind(name).ToString, ConvertValueToSimpleString(regkey.GetValue(name))))
Next
For Each key As String In regkey.GetSubKeyNames
addKeys(w, path & "\" & key, regkey.OpenSubKey(key))
Next
regkey.Close()
Catch ex As Exception
End Try
End Sub
newlines.Remove(reader.ReadLine)