imports System

imports System.Linq

imports Microsoft.VisualBasic

imports System.Text

​

public class Program

​

    public shared Sub Main()

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

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

        Dim digits = input.

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

                 OrderBy(Function(d) d).

                 GroupBy(Function(d) d, Function(d, g) String.Format("{0,3}{1}{2,7}{3}", d, vbTab, g.Count(), vbCrLf))

        For Each d As String in digits

            result.Append(d)

        Next

        Console.WriteLine(result.ToString())

    End sub

End Class