Option Explicit
 
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst _
      As Any, pSrc As Any, ByVal ByteLen As Long)
 
Private Sub Form_Load()
On Error Resume Next
 
    Dim sp As Long
    Dim b(1 To 10) As Byte
    Dim i As Integer
 
65535   i = -1 ' : Err.Raise 1
    sp = StrPtr(Erl)
 
    CopyMemory b(1), ByVal sp, 10
    For i = 1 To 10 Step 2
        If b(i + 1) = 0 And b(i) = 0 Then Exit For
        Debug.Print ChrW$(b(i + 1) + b(i));
    Next i
    Debug.Print ""
 
    Unload Me
End Sub

*greetz*
Tim
.
http://www.DotNetWorld.de