Sub Form_Load()
Text2 = "AEIOLST"
Text = Replaces(Text2 As String)
MsgBox (Text)
End Sub
 
Function Replaces(Verarbeitung As String)
Verarbeitung = Replace(Verarbeitung, LCase$("A"), "4")
Verarbeitung = Replace(Verarbeitung, LCase$("E"), "3")
Verarbeitung = Replace(Verarbeitung, LCase$("L"), "1")
Verarbeitung = Replace(Verarbeitung, LCase$("I"), "!")
Verarbeitung = Replace(Verarbeitung, LCase$("S"), "$")
Verarbeitung = Replace(Verarbeitung, LCase$("T"), "7")
Verarbeitung = Replace(Verarbeitung, LCase$("O"), "0")
End Function

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