Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim str As String = "vb 17 d 900 e 8542"
str = Regex.Replace(str, "[a-zA-Z]*", String.Empty)
Console.WriteLine(str)
End Sub
End Class
' run
'
' 17 900 8542
'