gracias!! ese funka perfecto.. aqui tengo otro xD
Function text_change(Text As String, LcaseA As String, UcaseA As String)As String
If NextKey$ = "a" Then Let NextKey$ = LcaseA$
If NextKey$ = "A" Then Let Nextkey$ = UcaseA$
Let NewSent$ = NewSent$ + NextKey$
Loop
text_change = NewSent$
End Function
---------------------------------------
Private Sub Crear_Click()
Result.Text = text_change(Text.Text, "@", "/\")
End Sub
Esto haria que si pongo "a" en Text.Text (el textbox) en el Result.Text saldria "@", si pongo "A" en el otro saldria "/\"...
el tuyo funciona y es mas corto -_-' xD
gracias... salu2