主题：请高手帮忙看看写的代码对不对

写了段输入验证的代码，提示信息总是弹出，是怎么回事?请大家帮忙看看

If e.Col.Name = "车号"
   Dim s As String = e.Row("车号")
      If e.Text > "" Then
      If s.Length <> 7 OrElse IsNumeric(s) = False Then
      messagebox.show("无效的车号!")
      e.Cancel = True
        End If
    End If
End If
If e.Col.Name = "计划号"
   Dim s As String = e.Row("计划号")
      If e.Text > "" Then
      If s.Length <> 11 OrElse IsNumeric(s) = False Then
      messagebox.show("无效的计划号!")
      e.Cancel = True
        End If
    End If
End If