تبدیل «.» به «!»

[coco 1,746]

سلام دوستان!

میخواستم بدونم چجوری میشه که توی یه ادیت تکست یه متن وارد شه و هرچی که توش نقطه بود تبدیل شه به علامت سوال و وارد یه ادیت تکست دیگه شه!

[امین شاهدی 5,771]

اینجوری

Sub Edittext1_TextChanged (Old As String, New As String)
Log(New.Replace(".","!").Replace(":","?"))
End Sub

[coco 1,746]

اون وقت اگر بخوام «.» رو به «!» و ،«:» رو به «؟» تبدیل کنه چی؟

[امین شاهدی 5,771]

با دستور Replace دیگه : 

Sub Edittext1_TextChanged (Old As String, New As String)
Log(New.Replace(".","!"))
End Sub