Len (), lift (), right () the user who does not recognize Chinese correctly please come in!

The following usage is in Chinese and 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