character

[mehrnoush]

سلام به دوستان
من یه تکس باکس دارم که توش نوشته شده Mehrnoush حالا می خوام با زدن یک کلید تکس باکس بنویسه Mehr\noush
خیلی ممنون
البته من منظورم این نیست که نوشته عوض بشه می خوام هر نوشته ای تو تکس باکس بود بین کاراکتر 4 و 5 اسلش رو چاپ کنه

[vbhamed]

سلام




Private Sub Command1_Click()

Dim t$

t = Text1

If Mid(t, 5, 1) <> "\" Then Text1 = Left(t, 4) & "\" & Mid(t, 5)

End Sub