[VB6] Characters in een string vervangen

[ViNyL]

Vraagje. Ik ben in een boek bezig over VB6. In het boek en op internet doen ze het volgende om tekens uit een string te halen

code:

public Function StripOut(From as string, What as string) as string

    Dim i as Integer

    StripOut = From
    for i = 1 to len(What)
        StripOut = Replace(StripOut, mid$(What, i, 1), "")
    next i

End Function

Dit roepen ze dan aan met:

code:

Debug.print StripOut("abcdefg", "bdf")

De vraag is nou: Hoe VERVANG ik tekens in een string. Zoals je bijvoorbeeld ziet bij van die 1337 taal generators. De E wordt een 3 etc....

[Verwijderd]

code:

str = "LEET"
str = Replace(str,"L","1")
str = Replace(str,"E","3")
str = Replace(str,"T","7")
Debug.Print str

[ViNyL]

Hmm dat is als je opgeeft wat de string is...

Maar wat als je de input wilt halen uit een textbox ??

[whoami]

code:

str = textBox.Text

ff nadenken, ff de help gebruiken....