Public Function ImportRegistrySettings( _
   ByVal FilePath As String _
) As Long