Function stat_protected(curr_stat, station, claster, check_rec)
    Dim cl, dic As Object, temp, i, cnt
    Set dic = CreateObject("scripting.dictionary")
    For Each cl In claster
        i = i + 1
        If cl.Value = curr_stat.Value Then
            
            If Not dic.exists(Trim(station(i))) Then
                dic(Trim(station(i))) = Array(1, IIf(check_rec(i) <> "", 1, 0))
            Else
                temp = dic(Trim(station(i)))
                temp(0) = temp(0) + 1
                temp(1) = temp(1) + IIf(check_rec(i) <> "", 1, 0)
                dic(Trim(station(i))) = temp
            End If
        End If
    Next cl
    
    For Each k In dic.keys
        If dic(k)(0) = dic(k)(1) Then cnt = cnt + 1
    Next k
    stat_protected = cnt
End Function