temel mantık aşağıdaki gibidir
Dim Uzunlk, x As Integer
Dim Hrf As String
Uzunlk = Len(Me.txtHepsi)
For x = 1 To Uzunlk
Hrf = Mid(Me.txtHepsi, x, 1)
If IsNumeric(Hrf) Then Me.txtsayi = Me.txtsayi & Hrf Else Me.txtMetin = Me.txtMetin & Hrf
Next x