No le hagas caso a AbrahamAraon, el desentiende este lenguaje parece , te esta explicando poniendo corchetes en vez de parentesis, eso denota una total ignorancia de la sintaxis del lenguaje.
Siguiendo:
El problema esta en estas lineas:
Código
Por que al declarar esas variables no se les puede dar un valor. (aunque todas de inicializan con el valor que igualas ahi)
Dim c As String = "" Dim z As String = "" Dim y As Integer=0
Tenes que poner asi para que funcione:
Código
Como veras ahi separo la declaracion de la asignacion de valor de la variable.
Dim c As String Dim z As String Dim y As Integer c = "" z = "" y = 0
Luego tambien estas mal con esta linea:
Código
En VB6 no se usa Return, para que la funcion devuelva esa variable que indicas ahi deberias reemplazar esa linea por:
Return z
Código
encriptararchivo = z
Por ultimo nunca cerras la funcion.
Deberias agregar un End Function al final.
El codigo te quedaria asi:
Código
Private Function encriptararchivo(ByVal archivooriginal As String) As String Dim c As String Dim z As String Dim y As Integer c = "" z = "" y = 0 For b = 1 To Len(archivooriginal) c = Mid(archivooriginal, b, 1) y = Asc(c) z = z & y & "tallin" Next encriptararchivo = z End Function
P.D: @lessionone solo arregle tus problemas con la sintaxis no cambie el funcionamiento de tu funcion.
P.D2: @AbrahamAraon Si respondes por favor responde bien o aunque sea en el lenguaje del subforo correspondiente, No hagas doble post, modifica el ultimo post y agrega lo que tengas que agregar, arriba ya te dije que no se usan corchetes en vb6, se usan parentesis.
GRACIAS POR LEER!!!