Create textbox Text1 on form bounded to your table field which contains some data.
Private Function Encrypt(sData As String) As String
Dim sTemp, sTemp1, tt As String
Dim ii As Integer
For ii = 1 To Len(sData)
sTemp = Mid(sData, ii, 1)
tt = Asc(sTemp) * 2
sTemp1 = sTemp1 & Chr(tt)...