Dim list_smiles As List
list_smiles.Initialize
Dim s_code As String
s_code = E_TXT.Text
list_smiles = File.ReadList(File.DirAssets,"smiles.txt")
For i = 0 To list_smiles.Size-1
s_code = s_code.Replace(list_smiles.Get(i),"*")
Next
E_TXT2.Text = s_code