Sætte objekts properties

Hvad er det der går galt her?

Ved kørsel hopper kode fint til clsRegistry og tildeler værdi til sSettings, men når den hopper til .Path, så indeholder parameteren Path ingenting!

************************************
  Dim objPrinter As New clsImport
  Dim objRegistryValue As New clsRegistry
 
  objPrinter.Path = objRegistryValue.Settings("MinApplikation", "Sektion", "MinNøgle")
************************************



clsImport
******************
Option Compare Database
Option Explicit

Private sPath As String
Private sFileName As String
Private sPathArchive As String
Private sNameArchivefile As String

Property Let Path(Path As String)
  sPath = Path
End Property

Property Get Path() As String
  Path = sPath
End Property

Property Let FileName(FileName As String)
  sFileName = FileName
End Property

Property Get FileName() As String
  FileName = sFileName
End Property

Property Let PathArchive(PathArchive As String)
  sPathArchive = PathArchive
End Property

Property Get PathArchive() As String
  PathArchive = sPathArchive
End Property

Property Let NameArchivefile(NameArchivefile As String)
  sNameArchivefile = NameArchivefile
End Property

Property Get NameArchivefile() As String
  NameArchivefile = sNameArchivefile
End Property
******************

clsRegistry
******************
Option Compare Database
Option Explicit

Private sAppname As String
Private sSection As String
Private sKey As String
Private sValue As String
Private sSettings As String
Private sAllSettings As String

Property Get Settings(sAppname As String, sSection As String, sKey As String) As String
  sSettings = GetSetting(sAppname, sSection, sKey)
End Property

Property Get AllSettings() As String
  sAllSettings = GetAllSettings(sAppname, sSection)
End Property
******************