以下のようなやり方もあります。

VB2008以降、.NET Framework2.0以降で動作します。
Dim text As String = "=SUM(A10:B23)" 
Dim result As String = New String(Array.FindAll(text .ToCharArray(), Function(ch) ch Like "[0-9]"))