podziel znak specjalny i alfabety od ciągu

mam wartość ciągu. Zawieram kombinację alfabetów, specjalnych znaków i liczb oraz białej spacji. ale chcę pobrać tylko liczby.

my code
-------
Dim str1 As String = "!@!@#!$@#$#123456habAB^*^&(*)(_)()*("
    Dim str2 As String = Regex.Replace(str1, "[\[\]\\\^\$\.\|\?\*\+\(\)\{\}%,;><!@#&\-\+/d]", "")

    MsgBox(str2)


output am getting
-----------------
123456habAB_

expected output
---------------
123456

questionAnswers(1)

yourAnswerToTheQuestion