title: Count lines not 0 found Textboxes
body: <p>I want to calculate the amount in a multiline Textbox where the value 0 is not found.</p>
  
  <pre><code>If TxtListScanValue.Text = ("2") Then
      TxtDrawR2.Text &amp;= Environment.NewLine &amp; lastDraw2
      Dim ListScan = TxtNumberListScan.Lines.ToList.Select(Function(o, i) New With {.scan = o, .Index = i})
      Dim DrawR2 = TxtDrawR2.Lines.ToList.Select(Function(o, i) New With {.draw = o, .Index = i})
      Dim list2 = From a In ListScan From b In DrawR2 Where a.Index = b.Index Select LstScan = a.scan, DrwR2 = ("00" &amp; b.draw).Substring(("00" &amp; b.draw).Length - 2) Order By DrwR2 Descending
      TxtListScanTxt.Text = String.Join(vbCrLf, list2)
  End If
  </code></pre>
  
  <p>If TxtdrawR5 =</p>
  
  <pre><code>2
  4
  0
  0
  1
  3
  5
  </code></pre>
  
  <p>In output I want to display: 5 because:<br>
  I want to calculate the count lines where the value 0 is not found. Count lines no have 0 value :D (2+4+1+3+5 = 5) (5 lines no have 0 value).</p>