I tried this
Public Shared Function Mid(ByVal str As String, ByVal Start As Integer, Optional ByVal Length As Integer) As String
Public Sub inspdate1_Validating(ByVal sender As Object, ByVal e As XmlValidatingEventArgs)
...