Private Sub Command1_click() 
  Const sChars = "AB" 
  Const sReplaceWith = "!§" 
 
  Dim i As Integer 
 
  sText = Text1.Text
  For i = 1 To Len(sChars) 
    sText = Replace(sText, Mid$(sChars, i, 1), Mid$(sReplaceWith, i, 1)) 
  Next i 
  Label1.Text = sText
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de