Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef _
  lpDest As Any, ByRef lpSource As Any, ByVal nCount As Long)
dim ResLen as long ' = länge der resource
dim strRes as string ' = space(reslen)
Call CopyMemory(ByVal StrPtr(strRes), ByVal ResPtr, ResLen)' Resptr = handle 
' der resource als long

dim s as string = Marshal.PtrToStringAuto(hResPTR, reslen) ' hResPTR ist ein 
' gültiges handle auf die resource als intptr