Textbox'daki sayıları oto 1000 bölme ? acil

Private Sub Command2_Click()
Text2.Text = SayıDeğiştir(Text1.Text)
End Sub


Private Function BasamaklaraAyır(ByRef sayı As String, Optional ByVal ayraç As String = ".") As String
Dim n As Integer, s As Integer
Dim tmp As String
Dim uzunluk As Integer
Dim rakam As String
uzunluk = Len(sayı)
For n = uzunluk To 1 Step -1

    rakam = Mid$(sayı, n, 1)
    s = uzunluk - n
    
    If (s Mod 3 = 0 And n <> Len(sayı)) Then
        tmp = ayraç & tmp
    End If
        tmp = rakam & tmp
Next n

BasamaklaraAyır = tmp

End Function


Private Function SayıDeğiştir(ByRef str As String)
   'Create objects.
   Dim re As RegExp
   Dim objMatch As Match
   Dim colMatches   As MatchCollection
   Dim RetStr As String
   
   ttt = str
   ' Create a regular expression object.
   Set re = New RegExp

   'Set the pattern by using the Pattern property.
   re.Pattern = "([-+]?[0-9]*\.?[0-9]{1,})"

   ' Set Case Insensitivity.
    re.IgnoreCase = True

   'Set global applicability.
    re.Global = True

   'Test whether the String can be compared.
   If (re.Test(str) = True) Then

   'Get the matches.
    Set colMatches = re.Execute(str)   ' Execute search.
    
    For Each objMatch In colMatches   ' Iterate Matches collection.
    'Text1.Text = Text1.Text & vbCrLf & ttt

      ttt = Replace(ttt, objMatch.Value, BasamaklaraAyır(objMatch.Value))
    Next
   Else
    RetStr = "String Matching Failed"
   End If
   SayıDeğiştir = ttt
End Function