Private Sub Command1_Click() 
Text2.Enabled = True 
A$ = "ABCDEFG" 
 
B$ = "HJKLMNO" 
TXT = Text1.Text 
NeuText = ""
For i = 1 To Len(TXT) 
T = Mid(TXT, i, 1) 
Fund = False 
For j = 1 To Len(A$) 
If Mid(A, i, 1) = T Then 
NeuText = NeuText + Mid(B, i, 1) 
Fund = True 
Exit For 
End If 
Next 
If Fund = False Then 
NeuText = NeuText + T 
End If 
Next 
Text2.Text = NeuText

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)