Sustitución de caracteres

[KazerPowa]

Buenas,

buscando por este mismo foro he encontrado un post donde "explican" cómo realizar uan sustitución de caracteres en visual basic...:



El código que dan es éste:

Código:

Public Function Cifrado(ByVal Entrada As String, _
                        Optional CodigoOriginal As String = " abcdefghijklmnñopqrstuvwxyz", _
                        Optional CodigoCifrado As String = " zyxwvutsrqpoñnmlkjihgfedcba") As String
Dim i As Long
Dim j As Long
Dim retStr As String
Dim c As String * 1
    
    Entrada = LCase(Entrada)
    
    For i = 1 To Len(Entrada)
        c = Mid(Entrada, i, 1)
        j = InStr(1, CodigoOriginal, c)
        If j > 0 Then
            retStr = retStr & Mid(CodigoCifrado, j, 1)
        Else
            retStr = retStr & c
        End If
    Next i
    
    Cifrado = retStr
End Function

...pero no sé muy bien cómo aplicarlo....hice esto, no sé qué le pasa pero no funciona, bueno ahí va:

PARTE DEL BOTÓN

Código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = Function (Cifrado(entrada = TextBox2.Text))
    End Sub

PARTE DE LA FUNCIÓN

Código:

Public Function Cifrado(ByVal Entrada As String, _
                        Optional ByVal CodigoOriginal As String = " abcdefghijklmnñopqrstuvwxyz", _
                        Optional ByVal CodigoCifrado As String = " zyxwvutsrqpoñnmlkjihgfedcba") As String
        Dim i As Long
        Dim j As Long
        Dim retStr As String
        Dim c As String

        Entrada = LCase(Entrada)

        For i = 1 To Len(Entrada)
            c = Mid(Entrada, i, 1)
            j = InStr(1, CodigoOriginal, c)
            If j > 0 Then
                retStr = retStr & Mid(CodigoCifrado, j, 1)
            Else
                retStr = retStr & c
            End If
        Next i

        Cifrado = retStr
    End Function

Una ayudita.....gracias