うたひこさん 
 
7番目と9番のコードが全体のコードです。 
 
このコードの 
''' <summary>戻り値はエラーメッセージ。エラーがないとき戻り値は空文字</summary>  
Private Function ValidRow(ByVal value As String) As String  
 
の下に 
Const crlf As String = Chr(13) & Chr(10)  
If value.StartsWith(crlf) = True Then  
Return "空白行があります。削除してください。"  
Flg = True  
End If  
を入れています。 
 
長いコードなので、もう一度全体のコードを載せる 
のはやめておきます。 
 
すみませんm(__)m