len()等不能识别中文的解决的方法

以下用法和len(),lift(),right()一样。
 

Function Strlength(Str)
    Temp_Str=Len(Str)
    For I=1 To Temp_Str
    Test_Str=(Mid(Str,I,1))
    If Asc(Test_Str)>0 Then
    Strlength=Strlength+1
    Else
    Strlength=Strlength+2
    End If
    Next
    End Function
    Function Strleft(Str,L)
    Temp_Str=Len(Str)
    For I=1 To Temp_Str
    Test_Str=(Mid(Str,I,1))
    Strleft=Strleft&Test_Str
    If Asc(Test_Str)>0 Then
    lens=lens+1
    Else
    lens=lens+2
    End If
    If lens>=L Then Exit For
    Next
    End Function
    Function Strright(Str,L)
    Temp_Str=Len(Str)
    For i = Temp_Str to 1 step -1
    Test_Str=(Mid(Str,I,1))
    Strright=Test_Str&Strright
    If Asc(Test_Str)>0 Then
    lens=lens+1
    Else
    lens=lens+2
    End If
    If lens>=L Then Exit For
    Next
    End Function