奇怪问题关于Ｍid

问题描述:
　　　　机器通过串口读如二进制数据
然后把这写二进制数据转换成ＡＳＣ码
　
大概如下：
    Dim data as String

    data = ...    debug的时候可以看见data中的数据已经是我想要的字符串了　　然后因为我要分离出其中的一些数据
　　就用了Mid数据　　Dim seg1 AS String
    Dim seg2 as String
    Dim seg3 As String
    Dim seg4 As String    seg1 = mid(data, 1, 6);
    seg2 = mid(data, 7, 13)
    seg3 = mid(data, 14, 23)    ...　　发现seg1, seg2中的数据还是正确的
　　到了seg3往后的就不对了　　白思不得其解各位指教？