If the ID appears once or twice add a 6 to column F

Hi,

If the ID appears once or twice in Column A then add a 6 to column H, but if the ID appears 3 or more times in column A then do nothing.

I would like to use VBA only for excel 2003 because it will be added to a larger VBA later.

Thanks to Tigeravatar earlier I received the following code which works great for adding a 6 for each ID that appears.

So if somebody could suggest a way to make only work for the ID appearing either less than 3 times, otherwise the value in column F should be 0.

Sub tgr()
    
    Dim IDCell As Range
    Dim strUnq As String
    
    For Each IDCell In Range("A2", Cells(Rows.Count, "A").End(xlUp)).Cells
        If InStr(1, "||" & strUnq & "||", "||" & IDCell.Text & "||", vbTextCompare) = 0 Then
            Cells(IDCell.Row, "H").Value = 6
            strUnq = strUnq & "||" & IDCell.Text
        End If
    Next IDCell

End Sub

David