Public Function GetUnit( _
      ByVal vNumber As Long _
    , Optional ByRef rCode As Variant _
    , Optional ByRef rCodeStripped As Variant _
    , Optional ByRef rName As Variant _
    , Optional ByRef rConstant As Variant _
    , Optional ByRef rDefinition As Variant _
    , Optional ByRef rDefinitionParsed As Variant _
    , Optional ByRef rCategory As Variant _
    , Optional ByRef rType As Variant _
    , Optional ByRef rSoundex As Variant _
    ) As Boolean