Gerekli Malzemeler:
2 Adet Command
2 Adet TextBox
Function MySifrele(kelime)
Dim key_alfabe As String
key_alfabe = "ab#cç$de1fg2ğh3ıi4jk5lm6no7öp8rs9şt0uü%vy&zx!qw ^?"
For i = 1 To Len(kelime)
harf = Mid(kelime, i, 1)
tmpyer = Split(key_alfabe, harf)
a1l1 = Left(tmpyer(1), 2)
a1sn =...