Public Structure DATASTRUCT Dim str1 As String Dim str2 As String Dim str3 As String End Structure Dim cds As DATASTRUCT cds = CType(Marshal.PtrToStructure(nAddress, GetType(DATASTRUCT)), DATASTRUCT) ですと、 「オブジェクト参照がオブジェクト インスタンスに設定されていません」のエラーが出てしまいます。