if TextBox1.Text.Length = 0 orelse TextBox2.Text.Length = 0 then 'メッセージ表示 ExitSub endif
if checkLogin(TextBox1.Text, TextBox2.Text) then 'OKの場合の処理 else 'NGの場合の処理、 endif