Не понимаю, зачем шифровать и заносить в textbox формы?
Заносите значение сразу в поле таблицы.
И memo нормально работает с такими значениями.
Простой пример, что вернет функция?:
Function mytest()
Dim rs As DAO.Recordset
Dim lngId As Long
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tmemo")
With rs
.AddNew
lngId = !id
!mymemo = Chr(&H41) & Chr(&H0) & Chr(&H42)
.Update
.Close
End With
mytest = 1
mytest = Asc(Mid(DLookup("mymemo", "tmemo", "id=" & lngId), 2, 1))
End Function

?mytest
0