Visual Basic

<br />
Private Sub BtnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSend.Click<br />
      Dim Start As String = "Start"<br />
      Dim intTotalCount As Integer<br />
      intTotalCount = CountStringInFile(strFile, Start) <--HERE, I CAN READ HOW MANY LINE MET THE CONDITION<br />
end Sub<br />
<br />
Private Function CountStringInFile(ByVal FilePath As String, ByVal StringToLookFor As String) As Integer<br />
        Dim strContent As String = ""<br />
<br />
        'Get a StreamReaderclass that can be used to read the file        <br />
        Dim objStreamReader As StreamReader<br />
<br />
        Dim intCount As Integer<br />
        Dim intCountahead As Integer = 1<br />
<br />
        objStreamReader = File.OpenText(FilePath)<br />
<br />
        While objStreamReader.Peek <> -1<br />
<br />
            strContent = objStreamReader.ReadLine<br />
            intCount += CountLineByLine(strContent, StringToLookFor)<br />
        End While<br />
<br />
        'Close the stream   <br />
        objStreamReader.Close()<br />
<br />
        objStreamReader = Nothing<br />
<br />
        Return intCount<br />
<br />
    End Function<br />
<br />
Private Function CountLineByLine(ByVal vstr As String, ByVal strToSearch As String) As Integer<br />
        Dim intIndex As Integer<br />
<br />
        Dim intCount As Integer = 0<br />
<br />
        intIndex = InStr(vstr, strToSearch)<br />
        <br />
        While intIndex > 0<br />
<br />
            intCount += 1<br />
<br />
            intIndex = InStr(intIndex + 1, vstr, strToSearch)<br />
<br />
        End While<br />
<br />
        Return intCount<br />
<br />
    End Function<br />

Dim ad As Integer = 0
Dim objControl As Object

For Each objControl In Me.Controls
  If TypeOf objControl Is TextBox Then
    If objcontrol.Text <> "" And IsNumeric(objcontrol.Text) Then
      ad += Val(objcontrol.Text)
      MsgBox(ad)
    End If
  End If
Next