imports System

imports System.Linq

imports Microsoft.VisualBasic

imports System.Text

​

public class Program

​

    public shared Sub Main()

        Dim digitCounts() As Integer = Enumerable.Repeat(0,10).ToArray()

​

        Dim input As String = "a;123lkj1-klm908562;1k;klj;l"

        Dim digits = input.

                   Where(Function(c) Char.IsDigit(c)).

                   Select(Function(c) Asc(c) - Asc("0"c))

        For Each d As Integer In digits

            digitCounts(d) += 1

        Next

                Dim result As New StringBuilder(string.Format("Digit{0}Frequency{1}",vbTab,vbCrLf))

        For i As Integer = 0 To 9

                result.AppendFormat("{0,3}{1}{2,7}{3}", i, vbTab, digitCounts(i), vbCrLf)

        Next

        Console.WriteLine(result.ToString())

    End sub

End Class