یاری در ساخت یک پروژه

سلام من میخواستم یک فرم طراحی کنم که بعد از نوشتن عدد مورد نظر در text1 خودش براش \ بزنه
مثلا من داخل صفحه تکست تایپ میکنم 5000000 بعد از رفتن به تکست بعدی خودش تایپ کنه000/000/5
کسی هست که بتونه به من کمک کنه:20::11:

در رویداد GotFocus تکست باکس بعدی بنویس :

کد:

---

i = Format(Val(Text1.Text), "standard")
Text1.Text = i

---

خودم پیدا کردم و گفتم شاید کسی دیگه هم لازمش باشه براتون میزارم

Dim Old As String, Olx As String
Old = Text1
If Len(Old) > 3 Then

Do

Old = StrReverse(Old)

If Len(Mid$(Old, 4)) > 3 Then
Olx = Olx & Mid$(Old, 1, 3) & "/"
Old = StrReverse(Mid$(Old, 4))
Else
Olx = Olx & Mid$(Old, 1, 3) & "/" & Mid$(Old, 4)
Exit Do
End If
Loop
Text2 = StrReverse(Olx)
End If


دوستان اگه میشه گه گداری سری به ما هم بزنید یه کمک هایی هم به ما بکنید