vb中拆分txt文本内容

求vb代码，在"C:\aa.txt"中的aa文本中有1500行，每行又有60个字符。我想要把这个文本文档，取每行的前45个字符，并取150行存在另一个文本中，取名为001.txt。接着就151行开始取150行（也是要截取前45个字符）存在002.txt文本。依此类推。。初学vb者希望有程序有注释！！谢谢！！
你们好！希望能给出具体的代码，并带注释更好。谢谢！

dim i as integer , j as integer ,s as string
open "c:\aa.txt" for input as #1
for i = 1 to 10'每次取150行，所以要取10次
open "c:\" & format(i,"000") & ".txt" for output as #2'打开第i个文档，准备保存
for j = 1 to 150'就是每次取的150行
line input #1 ,s'从第一行开始，赋值给字符串s
s=left(s,45)'取s的左边45个字符
print #2 ,s'往打开的第i个文件里写文字
next
close 2'写完150行，关闭第i个文件
next
close 1
大概就是这样，没调试，可能有点小错误。

我试验过了，添加个按钮，接分
Private Sub Command1_Click()
Dim a(0 To 9) As String
Dim b(0 To 9) As String
Open "c:\aa.txt" For Input As #1
Do Until EOF(1)
n = n + 1
Line Input #1, a(I)
b(I) = b(I) & Mid(a(I), 1, 45) & vbCrLf
If n Mod 15 = 0 Then
I = I + 1
End If
Loop
Close #1
For I = 0 To 9 Step 1
Open "c:\00" & CStr(I) & ".txt" For Output As #1
Print #1, b(I)
Close #1
Next I