Public Function ClassType(InOwner1 As String, FACRES As Double) As String
'-- Examine the Owner field and return the Class Code
If InStr(1, InOwner1, "CALIFORNIA STATE") Then
ClassType = "GOVT"
ElseIf InStr(1, InOwner1, "DISTRICT") Then
ClassType = "GOVT"
ElseIf InStr(1, InOwner1, "HUMBOLDT COUNTY") Then
ClassType = "GOVT"
ElseIf InStr(1, InOwner1, "CITY OF") Then
ClassType = "GOVT"
ElseIf InStr(1, InOwner1, "YUROK") Then
ClassType = "GOVT"
ElseIf InStr(1, InOwner1, "HOOPA") Then
ClassType = "GOVT"
ElseIf InStr(1, InOwner1, "UNITED STATES OF AMERICA") Then
ClassType = "GOVT"
ElseIf InStr(1, InOwner1, "CALIFORNIA THE STATE") Then
ClassType = "GOVT"
ElseIf InStr(1, InOwner1, "COMMUNITY") Then
ClassType = "GOVT"
ElseIf InStr(1, InOwner1, "SCOTIA PACIFIC COMPANY") Then
ClassType = "FOREST INDUSTRY"
ElseIf InStr(1, InOwner1, "BARNUM TIMBER") Then
ClassType = "FOREST INDUSTRY"
ElseIf InStr(1, InOwner1, "EMMERSON R H & SON") Then
ClassType = "FOREST INDUSTRY"
ElseIf InStr(1, InOwner1, "SOPER-WHEELER") Then
ClassType = "FOREST INDUSTRY"
ElseIf InStr(1, InOwner1, "SIERRA PACIFIC HOLDING") Then
ClassType = "FOREST INDUSTRY"
ElseIf InStr(1, InOwner1, "THE PACIFIC LUMBER") Then
ClassType = "FOREST INDUSTRY"
ElseIf InStr(1, InOwner1, "EEL RIVER SAWMILLS") Then
ClassType = "FOREST INDUSTRY"
ClassType = "Unknown"
ElseIf InStr(1, InOwner1, "TRUST") Then
ClassType = "NON-INDUSTRY OR BUSINESS"
ElseIf InStr(1, InOwner1, "COMPANY") Then
ClassType = "NON-INDUSTRY OR BUSINESS"
ElseIf InStr(1, InOwner1, "PROPERTIES") Then
ClassType = "NON-INDUSTRY OR BUSINESS"
ElseIf InStr(1, InOwner1, "BANK") Then
ClassType = "NON-INDUSTRY OR BUSINESS"
ElseIf InStr(1, InOwner1, "LTD") Then
ClassType = "NON-INDUSTRY OR BUSINESS"
ElseIf InStr(1, InOwner1, "LP") Then
ClassType = "NON-INDUSTRY OR BUSINESS"
ElseIf InStr(1, InOwner1, "L P") Then
ClassType = "NON-INDUSTRY OR BUSINESS"
ElseIf InStr(1, InOwner1, "DEVELOPMENT") Then
ClassType = "NON-INDUSTRY OR BUSINESS"
ElseIf InStr(1, InOwner1, "INC") Then
ClassType = "NON-INDUSTRY OR BUSINESS"
ElseIf InStr(1, InOwner1, "CORPORATION") Then
ClassType = "NON-INDUSTRY OR BUSINESS"
End Function