For j = 1 To 27
For i = 1 To 37
    If Dec1998(i) = DecGIS(j) And Stream1998(i) = StreamGIS(j) And Trib1998(i) = TribGIS(j) Then
        ID_GIS(j) = Rec1998(i)
    Else
        ID_GIS(j) = "No match"
    End If
Next i
Next j