Replace non numeric character in String

Iseng2 aja ingin coba2 untuk mempersingkat syntax biar diprogram lebih simpel, syntax yang dipakai untuk menghilangkan character yang bukan numeric / angka.
misalnya ada string berisi S5000TO maka yang keluar akan menjadi 5000 yang dihilangkan character STO…
Syntax yang lama…

Private Function fnParseDigits(ByVal strRawValue as String) As String
  Dim strDigits As String = ""
  If strRawValue = Nothing Then Return strDigits

  For Each c As Char In strRawValue.ToCharArray()
  If c.IsDigit Then
    strDigits &= c
  End If
  Next c

  ' return the number string, or "" if no numbers were in the string.
  Return strDigits
End Function

akhirnya ketemu syntax lebih cepatnya dapat dari forum…he…
C#

string initialString = "S5000TO";
System.Text.RegularExpressions.Regex nonNumericCharacters = new System.Text.RegularExpressions.Regex(@"[^0-9]");
string numericOnlyString = nonNumericCharacters.Replace(initialString, String.Empty);

VB

Dim initialString as String = "S5000TO"
Dim nonNumericCharacters As New System.Text.RegularExpressions.Regex("[^0-9]")
Dim numericOnlyString As String = nonNumericCharacters.Replace(initialString, String.Empty)

Selamat mencoba…Terima Kasih…