Excellent markB, That worked perfectly! I knew it had to be something small I was over looking, those always get me in the end. It should be noted that the original declaration of the get_formated provided by Pico in the sample module, has it declared ByRef and this needs to be changed to use it in ...

markB, Thank you for your reply! I have however tried to use this method before to no effect. Here is what I wrote to quickly test it again: (the function declaration is in my module) Dim intRetVal As Integer Dim hTC08 As Integer Dim info As String * 255 hTC08 = usb_tc08_open_unit() If (hTC08) Then ...

Hello, I'm having problems getting the szSerial number and temp readings to work correctly. Here is the test sub I wrote to try to get things up and running. Dim intRetStatus As Integer Dim hTC08 As Integer Dim tc08Info As USBTC08_INFO ReDim temp_buffer(9) As Single Dim intFlag As Integer Dim intErr...