Dim columntocheck As Integer = 48
 
  Dim sum_a As Integer = 0
 
  For rowindex As Integer = 0 To dgv_winter.Rows.Count - 1
      Dim obj As Object = dgv_winter.Rows(rowindex).Cells(columntocheck).Value
      If Not Convert.IsDBNull(obj) AndAlso obj Isnot Nothing Then
         Dim vl As String = obj.ToString
         If vl IsNot Nothing Then
            'Hier können beliebige Stringmethoden (z.B. Tolower, Contains)
            'eingesetzt oder durch eine Schleife über die Zeichenfolge
            'Zeichen analysiert/gezählt werden 
            If vl.StartsWith("A") Then sum_a += 1
         End If
      End If
  Next rowindex