'Dim strline As String = sf.iif(TR.StuffToBe(EditText1.text).Success= True,TR.StuffToBe(EditText1.text).Text,TB.ThaiSplitWord(EditText1.Text))
Dim strline As String
If TR.StuffToBe(EditText1.text).Success= True Then
strline=TR.StuffToBe(EditText1.text).Text
Else
strline=TB.ThaiSplitWord(EditText1.Text)
End If