うたひこさん 
アドバイスありがとうございます。 
下記のようにしてみましたが、同じでした。 
        Const crlf As String = Chr(13) & Chr(10) 
 
        If value.StartsWith(crlf) = True Then 
            Return "空白行があります。削除してください。" 
            Flg = True 
        End If 
 
 
Private Function ValidRow(ByVal value As String) As String 
のすぐ下にこのコードを入れています。