VBA find the first cell in a column that has a 0

The basic code without error checking

Sub FindZero()
Dim I As Integer
    I = WorksheetFunction.Match(0, Range("M1:M100"), 0)
    MsgBox I
End Sub