信手拈来 妙手偶得

'// 得到固定长度字符串的函数
Public Function getFixedLenString(dest As String, fixedLen As Integer)
   If getMixedStringlen(dest) > fixedLen Then
       getFixedLenString = Left(dest, fixedLen)
   Else
       getFixedLenString = dest + String(fixedLen - getMixedStringlen(dest), " ")
   End If
End Function

'// 得到混合字符串的长度的函数
Public Function getMixedStringlen(strMixed As String)
   getMixedStringlen = LenB(StrConv(strMixed, vbFromUnicode))
End Function

有时候这两个函数能起大作用，大家不妨保存下来。