vb文本分割

'在窗体代码区内上复制以下代码，运行即可得到结果

Private Sub Form_Load()
Dim FileName As String, FileSize As Long, S As String, i As Long
Dim bb() As Byte, j As Integer, File1 As String
FileName = InputBox("请输入文件名(含完整路径)", "提示")
If Dir(FileName) = "" Then
MsgBox "文件不存在！"
Exit Sub
End If
i = FileLen(FileName)
FileSize = InputBox("该文件共有" & i & "字节" & vbNewLine _
& "请输入每个文件的大小(字节)", "提示", i / 3)
Open FileName For Binary As #1
i = InStrRev(FileName, "\")
j = InStrRev(FileName, ".")
File1 = Mid(FileName, i + 1, j - i - 1)
i = 1
Do While Not EOF(1)
ReDim bb(FileSize)
Get #1, , bb
Open App.Path & "\" & File1 & "." & Format(i, "000") For Binary As #2
Put #2, , bb
Close #2
i = i + 1
DoEvents
Loop
close #1
MsgBox "共分割成&quo