Een letter uit een textbox of textbestand halen

[HellupUandMe]

Yo mensen,

Ik wil graag een programma maken om letters om te zetten naar andere figuurtjes dus bijvoorbeeld:

Ik heb een trui
#^ !&* &&% $@(#

Ofzoiets. Ik heb VB2005 dus niet VB6
Mare weet iemand hoe ik dat kan doen?

 

[JHx]

deze functie zou moeten werken

Function fCodeer(sTekst As String) As String
Dim strBron As String, strCode As String, strDoel As String, strT As String
Dim strVan As String, strNaar As String, iLen As Integer, i As Integer, j As Integer
  strBron = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
  strCode = "+ľščťžýáíé=´úäň§ô-.,?:_!)(/1234567890<>#&@{}đĐ[]łŁ$ß"
  strVan = sTekst
  iLen = Len(strVan)
  For i = 1 To iLen
    strT = Mid(strVan, i, 1)
    j = InStr(strBron, strT)
    If j = 0 Then
      strNaar = strNaar & strT
    Else
      strNaar = strNaar & Mid(strCode, j, 1)
    End If
  Next i
  fCodeer = strNaar
End Function

strBron bevat de tekens die je wil omzetten, strCode bevat de tekens die je in het resultaat wil zien.
Het 1e teken van strBron wordt omgezet naar het 1e teken van strCode
Het 2e teken van strBron wordt omgezet naar het 2e teken van strCode
Het 3e teken van strBron wordt omgezet naar het 3e teken van strCode
enz...
Tekens die niet in strBron staan worden gewoon overgenomen.
Bvb:
strNieuw=fCodeer("abc123xyz")
strNieuw bevat nu "+ľš123!)("

 

[HellupUandMe]

Dank je wel