aşağıdaki fonksiyon işinize yarayabilir ama şöyle bir sorun var metin içindeki sayılar Cuma 0123 ali 000 gibi dağınıksa 0123000 şeklinde alır.

Function SayiAl(Mtn As String)

Dim Sayi As String

For x = 1 To Len(Mtn)

SayInt = Mid(Mtn, x, 1)

If IsNumeric(SayInt) Then SayiAl = SayiAl & SayInt

Next x

End Function

fonksiyonu aşağıdaki şekilde çağırabilirsiniz

Private Sub SayiA_Click()

Me.Metin2 = SayiAl(Me.Metin0)

End Sub