Function StrLen(Str)
strTemp = Len(Str)
For I = 1 To strTemp
strTest = (Mid(Str, I, 1))
If Asc(strTest) > 0 Then
StrLen = StrLen + 1
Else
StrLen = StrLen + 2
End If
Next
End Function
Function StrLeft(Str, L)
strTemp = Len(Str)
For I = 1 To strTemp
strTest = (Mid(Str, I, 1))
StrLeft = StrLeft & strTest
If Asc(strTest) > 0 Then
Lens = Lens + 1
Else
Lens = Lens + 2
End If
If Lens >= L Then Exit For
Next
End Function
Function StrRight(Str, L)
strTemp = Len(Str)
For I = strTemp To 1 Step -1
strTest = (Mid(Str, I, 1))
StrRight = strTest & StrRight
If Asc(strTest) > 0 Then
Lens = Lens + 1
Else
Lens = Lens + 2
End If
If Lens >= L Then Exit For
Next
End Function