تشخیص حروف در تکست

[hr0694]

سلام

کدی رو میخام که اگه داخل تکست1 نوشته شد "ة ال" یا "ةال" سپس تکست2 شود 431
من میخام اگه کنار حروف دیگه هم این حروف نوشته شد دوباره تکست2 بشه 431 مثلاً در مدینة النبی (ة ال) وجود دارد پس تکست2 شود 431

مثال
تکست1: مدینة النبی
تکست2: 431
یا
تکست1: "منة ال" یا "منةال"
تکست2: 431

[just4froum]

با سلام :

ببین این کد بدردت میخوره ؟(به جای 123 حروفی رو که میخوای بگذار)

Private Sub Text1_Change()
Dim s As String
s = Text1.Text
s = Replace(s, " ", "")
If InStr(1, LCase(s), LCase("123")) <> 0 Then Text2.Text = 431
End Sub



موفق باشید