Ето тая функция връща цифрите в стринга.
Гимнастиката с текст-боксове и бутони трябва сам(а) да си я направиш.

Function Txt_num(ByVal ss$)
Txt_num = ""
While Len(ss$) > 0
f_ch = Left(ss$, 1)
If (f_ch >= "0" And f_ch <= "9") Then Txt_num = Txt_num + f_ch
ss$ = Right(ss$, Len(ss$) - 1)
Wend
End Function

---
Изпълнението е аматьорско, но на мен ми вършеше работа за друго.
Може би експертите ще ми намерят кусури, тъкмо ще науча
още нещо...

Не бързай да подозираш лош умисъл - може да е обикновена глупост!