VB PDU mode 7 bit decoding

Dim Tep as String
Dim Temp as String
Dim I as Integer
Dim B as Integer
Dim Rems as String
TEP = rmsg
i = Len (TEP)
If I < 1 Then Exit Function

B = I/2

If i = B * 2 Then
Tep = Left (TEP, B * 2)
Else
B = B-1
Tep = Left (TEP, B * 2)
End If

Chg7 = ""
Rems = ""
Dim Trint as Integer
Dim strtmp as String

Trint = 1
strtmp = ""

For i = 1 to B
temp = "&h" & Mid (Tep, (i-1) * 2 + 1, 2)
temp = D_to_b (Val (temp)) ' Turn binary

If Len (temp) < 8 Then
temp = STRPLA (8-len (temp)) + Temp
End If

strtmp = Mid (temp, trint + 1, 8-trint) + Rems

Rems = Mid (temp, 1, trint)


Chg7 = Chg7 & ChrW (CInt (Val (b_to_d)))

Trint = trint + 1
If Trint = 8 Then
Trint = 1
Chg7 = Chg7 & ChrW (CInt (Val (b_to_d)))
Rems = ""
End If


Next I