Function f_Bin2Str(ByVal sBin)
    Dim iI, iLen, iChr, iRe       
    iRe = ""
    If Not IsNull(sBin) Then
        iLen = LenB(sBin)
        For iI = 1 To iLen
            iChr = MidB(sBin, iI, 1)
            If AscB(iChr) > 127 Then
                iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr))
                iI = iI + 1
            Else
                iRe = iRe & Chr(AscB(iChr))
            End If
        Next
    End If    
    f_Bin2Str = iRe
End Function
这个函数是什么意思，能详细介绍吗。是上传程序中的函数，主要是不知道具体原理