indentify status text in ne colum and count in another if

Hi!

I know next to nothing about vb programming, but nevertheless i have tried to compile a function it although contains an error which i can't identify.

Function Countcoloriftext(varRange As Range, subRange As Range, statustext As String, subText As String)
Dim cell As Range
Application.Volatile
For Each cell In varRange
    If cell.Text = statustext Then
    For Each cell In subRange
    If cell.Text = strText Then
Countcolorif = Countcolorif + 1
End If
End If
Next
End Function

Hope someone can and will help... thx