Public Function GetReplacement( _
      ByVal vNumber As Long _
    , Optional ByRef rFind As Variant _
    , Optional ByRef rReplace As Variant _
    , Optional ByRef rCompare As Variant _
    ) As Boolean