bunun için formumuza 2 adet textbox 1 tane command button eklememiz ve formumuza aşağıdaki kodu yapıştırmamız yeterli.
ör: textbox1'e ERKAN yazıyorsunuz butona tıklayınca NAKRE olarak çeviriyor. çok işe yaramaz ama belli mi olur belki lazım olur
[code]Private Sub Command1_Click()
Dim i
i = 0
Do Until i = Len(Text1.Text) 'Text1 deki karekter sayisi kadar Fonksiyonu calistir
i = i + 1
a = Right(Text1.Text, i) 'sagdan i ninci karekteri Al
b =