プログラミング初心者です。

SPREADの入力エラーチェックの処理で、
入力したセルの文字を取得して
負の値にはエラーメッセージを飛ばす処理作りたいのですが、
負の値だったらエラーメッセージが出るようになったものの
空白でも同様のエラーメッセージが出てしまいます。
修正と解説をよろしくお願いいたします。
GetSouceはセルの文字列を取得するString型のファンクションです。

<ソースコード>
Public Class ZeromimanChk
Inherits ValidateChecked

Public Overrides Function Check() As Boolean
Dim minZero As Integer = 0
If (MyBase.GetSorce()) < minZero.ToString Then
MyBase.SetErrorMsg("0未満はだめ")
Return False
End If
Return True
End Function

End Class