Удаление из строки нечисловых символов - VB

Формулировка задачи:

Есть у меня числовая строчка в которой могут быть не только число, но и другие символы и буквы, так вот мне надо их всех удалить, что то я вроде сделала...но как дальше быть незнаю, помогите пожалуйста.
Здесь я хотела удалить из строки все нечисловые символы
l = Len(Trim(ThisWorkbook.Worksheets("Итого").Cells(i + 1, 8))) ' определяем длину строки
st = Trim(ThisWorkbook.Worksheets("Итого").Cells(i + 1, 8)) ' сама строка без пробелов справа и слева
For k = 1 To l
If Mid(st, k, 1) <> 0 And Mid(st, k, 1) <> 1 And Mid(st, k, 1) <> 2 And Mid(st, k, 1) <> 3 And Mid(st, k, 1) <> 4 And Mid(st, k, 1) <> 5 And Mid(st, k, 1) <> 6 And Mid(st, k, 1) <> 7 And Mid(st, k, 1) <> 8 And Mid(st, k, 1) <> 9 Then
Mid(st, k, 1) = ""
End If
Next k

Решение задачи: «Удаление из строки нечисловых символов»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> tt()
p = <font color="teal">"12345678901234567890123456"</font>
Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>8</b></font>).NumberFormat = <font color="teal">"@"</font>
Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>8</b></font>) = p
<font color="blue">End</font> <font color="blue">Sub</font>

                        