Public Function LookupAdd( _
      ByRef rTable() As Variant _
    , ByVal vString As Variant _
    , ByVal vNumber As Variant _
    ) As Boolean