Hot Dog!! Thanks again, I feel proud

new function:
Code:
PublicFunction CreateSWord(ByVal data1 AsByte, ByVal data2 AsByte) AsString
  Dim t AsUShort
  Dim sign AsString

     t = (data1 * 256) + data2
     If t > 32767 Then
        t = (Not t) + 1
        sign = "-"
     Else
        sign = " "
     EndIf
Return (sign & t.ToString)
EndFunction
And how to get there:
Code:
gxhb.Text = CreateSWord(data(0), data(1))
gyhb.Text = CreateSWord(data(2), data(3))
gzhb.Text = CreateSWord(data(4), data(5))
axhb.Text = CreateSWord(data(6), data(7))
ayhb.Text = CreateSWord(data(8), data(9))
azhb.Text = CreateSWord(data(10), data(11))
cxhb.Text = CreateSWord(data(12), data(13))
cyhb.Text = CreateSWord(data(14), data(15))
czhb.Text = CreateSWord(data(16), data(17))