小弟想试着做一个文本文件分割小程序，遇到了下列问题！

我想实现这样的效果：
1、由用户输入想把文本文件要分割的份数。
如：要把笑话.txt分成4份。
2、程序运行后，会自生成笑话1.txt，笑话2.txt，笑话3.txt，笑话4.txt
本以为程序不难完成，但在编写中遇到这样的一个问题：
1、首先，以二进制模式打开笑话.txt,我想通过读取笑话.txt,总字节大小(3359kb)，然后把它除以4,找到每次读的字数后，然后再写在笑话1.txt中,但是这样会发现，不是分成4份，而是分成了3份，并且每份字数相差不少。
到底有没有好的方法：
代码如下：

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim i As Integer
Dim tx As String
Dim nm As String
i = 0
Com1.ShowOpen
Com1.DialogTitle = "打开文件"
Com1.Filter = "文本文件|*.txt|"
Open Com1.FileName For Binary As #1
a = LOF(1) / 4
tx = String$(a, " ")
Get #1, 1, tx
b = Seek(1)


Text1.Text = tx
nm = Left(Com1.FileName, Len(Com1.FileName) - 4)
Open nm & "5.txt" For Output As #2
Print #2, tx

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

1 除法的余数，可能被你丢掉。

2 你这样的切法，可能使中文等东亚文字变成乱码。