Imports System
Imports System.Linq
Public Class Program
Public Shared Sub Main()
Dim s As String = "ABC75DE8FG-J80-900C-21PO"
Dim result = From ch In s
Where Char.IsDigit(ch)
Select ch
For Each c As Char In result
Console.Write(c & " ")
Next
End Sub
End Class
' run:
'
' 7 5 8 8 0 9 0 0 2 1
'