'******************************************************************************************************
'http://www.cnng.net
'石陆软件屋

'函数：CutString(s,10)
'功能：将字符串按等宽的比列换行输出
'调用：CutString("123456789",3)
'参数：Str:待截取的字符串,BrN:换行的字符个数
'******************************************************************************************************
Public Function CutString(str As String, BrN As Integer) As String
Dim n As Integer
Dim s1 As String
n = Len(str)
s1 = ""
s2 = ""
For i = 1 To n
    If i Mod BrN = 0 Then
        s1 = Left(str, BrN)
        str = Replace(str, s1, "")
        s2 = s2 & Space(2) & s1 & Chr(10)
    End If
Next
CutString = s2
End Function