Option Explicit Sub Main() ' By T.Shibuya 2003-03-22 ' Const Flnm As String = "c:\Test\Test01.html" Dim X1 As Integer Dim X2 As Integer Dim X3 As Integer Dim X4 As Integer Dim Dec As Long Dim XChr(15) As String On Error Resume Next XChr(0) = "0" XChr(1) = "1" XChr(2) = "2" XChr(3) = "3" XChr(4) = "4" XChr(5) = "5" XChr(6) = "6" XChr(7) = "7" XChr(8) = "8" XChr(9) = "9" XChr(10) = "A" XChr(11) = "B" XChr(12) = "C" XChr(13) = "D" XChr(14) = "E" XChr(15) = "F" Open Flnm For Output As #1 Print #1, "<html>" Print #1, "<head>" Print #1, "<title>UNICODE TEST</title>" Print #1, "</head>" Print #1, "<body>" For X1 = 0 To 15 For X2 = 0 To 15 For X3 = 0 To 15 For X4 = 0 To 15 Dec = (X1 * 16 ^ 3) + (X2 * 16 ^ 2) + (X3 * 16 ^ 1) + (X4 * 16 ^ 0) Print #1, "x" & XChr(X1) & XChr(X2) & XChr(X3) & XChr(X4) & _ " , &#" & Format(Dec, "####0") & ";" & _ " , " & Format(Dec, "####0") & ";<br>" Next X4 Next X3 Next X2 Next X1 Print #1, "</body>" Print #1, "</html>" Close #1 End Sub