VB Help

[gadelhas]

Well not saying its is the best way by any means, but this seems to work:

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

Yeh, that works, and if it works...GooD