出了怪问题,请求帮助!

TxtSend.Text = "57413A100255FE04" + BTH(Text2.Text) + "00001003"
fs_16_shijian = Trim(TxtSend.Text)
li_len = Len(fs_16_shijian)
For li_loop = 1 To li_len Step 2
   fs_16_shijian_q = Mid(fs_16_shijian, li_loop, 2)
   a = a + 1
   shijian_1 = CDec(BTD(HTB(fs_16_shijian_q))) 
   lc_Test(a) = Chr(shijian_1)
Next
For i = 1 To UBound(lc_Test)
    ss = ss & lc_Test(i)
Next
Text3.Text = ss & "FE"
为什么Text3.Text文本框中不显示FE??只要在ss后连接的字符串都不显示,不知道是什么问题??还请高手指点!
'BTD,HTB分别是2进制转换为10进制,16进制转换为2进制
Public Function HTB(ByVal s_hex As String) As String
Dim li_len, li_loop As Integer
Dim ls_return As String
If UCase(Left(s_hex, 1)) = "H" Then s_hex = Mid(s_hex, 2) '去除进制标志
li_len = Len(s_hex)
For li_loop = 1 To li_len
  Select Case Mid(s_hex, li_loop, 1)
    Case "0"
         ls_return = ls_return + "0000"
    Case "1"
      ls_return = ls_return + "0001"
    Case "2"
        ls_return = ls_return + "0010"
    Case "3"
      ls_return = ls_return + "0011"
    Case "4"
        ls_return = ls_return + "0100"
    Case "5"
      ls_return = ls_return + "0101"
    Case "6"
        ls_return = ls_return + "0110"
    Case "7"
      ls_return = ls_return + "0111"
    Case "8"
        ls_return = ls_return + "1000"
    Case "9"
      ls_return = ls_return + "1001"
    Case "A", "a"
        ls_return = ls_return + "1010"
    Case "B", "b"
      ls_return = ls_return + "1011"
    Case "C", "c"
        ls_return = ls_return + "1100"
    Case "D", "d"
      ls_return = ls_return + "1101"
    Case "E", "e"
        ls_return = ls_return + "1110"
    Case "F", "f"
      ls_return = ls_return + "1111"
    Case Else
     HTB = "-1"
     Exit Function
  End Select
Next
For li_loop = 1 To 3 '去除数字前面的0
  If Left(ls_return, 1) = "0" Then ls_return = Mid(ls_return, 2)
Next
 HTB = ls_return
End Function
Public Function BTD(ByVal s_bin As String) As String
Dim li_len, li_loop As Integer
Dim ls_return As Long
li_len = Len(s_bin)
For li_loop = (li_len - 1) To 0 Step -1
  If Mid(s_bin, li_len - li_loop, 1) > 1 Then BTD = -1
  ls_return = ls_return + Mid(s_bin, li_len - li_loop, 1) * 2 ^ li_loop
Next
 BTD = ls_return
End Function