Sub Form_Load()
Text2 = "AEIOLST"
 
rp = "431!$70"
Text = Do_Replace(Text2, rp)
MsgBox (Text)
End Sub
 
Function Do_Replace(Verarbeitung As String, Mit As String) As String
  For i = 1 To Len(Verarbeitung)
    Do_Replace = Replace(Verarbeitung, Mid(Verarbeitung, i, 1), Mid(Mit, i, 1))
    Do_Replace = Replace(Verarbeitung, LCase(Mid(Verarbeitung, i, 1)), Mid(Mit, _
      i, 1))
  Next
End Function

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)