visual basic中文转ASCII编码代码：

Public Function Aasczhuanhuan(lstr)

Dim i As Integer

Dim s, T As String

For i = 1 To Len(lstr)

s = Mid(lstr, i, 1)

If AscW(s) > 0 Then

T = T & "&#" & AscW(s) & ";"

Else

T = T & "&#" & CLng("&H" & Hex(AscW(s))) & ";"

End If

Next i

If Len(Form1.RichTextBox1.Text) - Len(Replace(Form1.RichTextBox1.Text, Chr(10), "")) > 100 Then

Form1.RichTextBox2.Text = Form1.RichTextBox1.Text & Form1.RichTextBox2.Text

Form1.RichTextBox1.Text = ""

End If

   Form1.RichTextBox1.Text = Form1.RichTextBox1.Text & T & vbCrLf

End Function

VB6中文转&#XXXX模块代码分享：

Public Function XXXXzhuanhuan(lstr)

Dim i As Integer

Dim s, T As String

For i = 1 To Len(lstr)

s = Mid(lstr, i, 1)

 If Len(Hex(AscW(s))) < 3 Then

T = T & "&#x00" & Hex(AscW(s)) & ";"

 Else

T = T & "&#x" & Hex(AscW(s)) & ";"

 End If

Next i

If Len(Form1.RichTextBox1.Text) - Len(Replace(Form1.RichTextBox1.Text, Chr(10), "")) > 100 Then

Form1.RichTextBox2.Text = Form1.RichTextBox1.Text & Form1.RichTextBox2.Text

Form1.RichTextBox1.Text = ""

End If

   Form1.RichTextBox1.Text = Form1.RichTextBox1.Text & T & vbCrLf

End Function