Well not saying its is the best way by any means, but this seems to work:
Code:
Dim i AsInteger
Dim t AsUShort
Dim datain AsByte
Dim data(20) AsByte
Dim sign AsString

 
t = (data(0) * 256) + data(1)
If t > 32767 Then
  t = (Not t) + 1
  sign = "-"
Else : sign = " "
EndIf
gxhb.Text = sign & t.ToString
Thanks for the help guys, for now this will cover my needs