Text als Bedingung in Function

ich habe folgende Function geschrieben:

Public Function Min_Wenn(Datenreihe As Range, Bedingung)
'On Error Resume Next
Min_Wenn = 0
For Each zelle In Datenreihe
If zelle< Bedingung Then
Min_Wenn = zelle
End If
Next
End Function

mit der ich unter "Bedingung" ähnlich wie bei der Excelfunktion "Summewenn" etwas eintragen möchte (z.B. <0), was erfüllt sein muß um die Berechnung auszuführen. Nur scheint die If-Abfrage nicht geeignet zu sein, da die von mir eingegbene Bedingung als Text "<0" ankommt und insofern nicht interpretiert wird.

Kann mir jemand helfen?

Danke

Matthias