разделить специальный символ и алфавиты из строки

У меня есть строковое значение. Я содержит комбинацию алфавитов, специальных символов и цифр и пробелов. но я хочу получить только цифры.

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

    MsgBox(str2)


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

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