سه رقم جداكردن اعداد به همراه مميز

[swallow.pa]

سلام به همه
با استفاده از كد زير من اعدادي رو كه مميز دارند رو توي تكست باكس فعال مي كنم


Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If TextBox1.Text.IndexOf(".") > 0 Then
If Not IsNumeric(e.KeyChar) Then e.Handled = True
Else
If Not IsNumeric(e.KeyChar) And e.KeyChar <> "." Then e.Handled = True
End If
If e.KeyChar = vbBack Then e.Handled = False
End Sub

حالا اگه بخوايم سه رقم سه رقم رو با وجود مميز جدا كنيم راهكار شمادوستان براي اين مورد چيه ؟؟
ممنون