Private Sub rtf_SelChange()
rtf.SelText = GetReplaceString(rtf.SelText)
End Sub
 
Public Pfad As String
Public Text, Text2 As String
 
Public Function GetReplaceString(Verarbeitung As String) As String
Verarbeitung = Replace(Verarbeitung, "A", "4")
Verarbeitung = Replace(Verarbeitung, "a", "4")
Verarbeitung = Replace(Verarbeitung, "E", "3")
Verarbeitung = Replace(Verarbeitung, "e", "3")
Verarbeitung = Replace(Verarbeitung, "L", "1")
Verarbeitung = Replace(Verarbeitung, "l", "1")
Verarbeitung = Replace(Verarbeitung, "I", "!")
Verarbeitung = Replace(Verarbeitung, "i", "!")
Verarbeitung = Replace(Verarbeitung, "S", "$")
Verarbeitung = Replace(Verarbeitung, "A", "$")
Verarbeitung = Replace(Verarbeitung, "T", "7")
Verarbeitung = Replace(Verarbeitung, "t", "7")
Verarbeitung = Replace(Verarbeitung, "O", "0")
Verarbeitung = Replace(Verarbeitung, "o", "0")
GetReplacesString = Verarbeitung
End Function

Press any key to continue or any other key to quit...