vba - WorksheetFunction.CountIf

Dim okCount As Integer
Dim ngCount As Integer
Dim emptyCount As Integer
okCount = WorksheetFunction.CountIf(Range("D9").CurrentRegion.Columns(2), "ok")
ngCount = WorksheetFunction.CountIf(Range("D9").CurrentRegion.Columns(2), "ng")
emptyCount = WorksheetFunction.CountIf(Range("D9").CurrentRegion.Columns(2), "")
MsgBox "ok:" & okCount & "/ng:" & ngCount & "/empty:" & emptyCount