Imports System.Runtime.InteropServices

<DllImport("BoxDLL.dll", EntryPoint:="GetPCBTemperature", ExactSpelling:=False, CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall)> _
Public Function GetPCBTemperature(ByVal Card As UInteger, ByRef Temp As IntPtr) As Boolean
End Function

Dim T() As UInteger = {0, 0, 0}
Debug.Print(GetPCBTemperature(1, T(0)))