try below
Dim mylines() As String = ComboBox1.Items.Cast(Of String).ToArray
Dim count As integer = mylines.Where(Function(s) s.StartsWith("a")).Count()
Or without using LINQ
Dim count As integer =0
For each item As String in myComboBox.Items
If item.StartsWith("a") Then
count += 1
End If
Next