小弟出来工作三年多了，很久没有接触VB了，很多东西忘了，因为每天都做同样烦心的事（发邮件，邮箱都是电子表格里的，但是直接发的时候要在每个收件人中间加个；号，今天晚上想起来拿VB做个程序，太久没有操刀了，差点comand都不记了，想请热心的朋友帮个忙，写个小程序，应该很简单的，读入，写出，一个循环，但是太久没有接触了，都忘了。

具体是打开一个文本文件，里面比如有有很多行
111
222
333
444
...
这里字符，要把里面每行的字符改成下面的格式
111；222；333；444
然后每40个间隔一下
读完了，保存一下就可以了

窗体：添加两个按钮，一个打开文件（用CommonDialog就可以了），另外一个按钮改变文本里的内容，保存就可以了。
希望热心的朋友能帮一下（把代码在下面贴一下就可以了），不胜感激。

每40个间隔一下指的是怎么间隔？

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim s(100) As String  '因不知道你的具体有多少，所有我用了100，自己替换掉
Dim i, j As Integer

 Dim strFileName  As String
Private Sub Command1_Click()
On Error GoTo ms:
        With Me.CommonDialog1
            .Filter = "txt文件|*.txt"
            .ShowOpen
        End With
       
        strFileName = Me.CommonDialog1.FileName
        If Len(strFileName) > 0 And Dir(strFileName) <> "" Then
          i = 1
          Open strFileName For Input As #1
          Do While Not EOF(1)
            Line Input #1, s(i)
            i = i + 1
          Loop
          Close #1
        End If
ms:
End Sub

Private Sub Command2_Click()
Dim st As String
Open strFileName For Output As #1
   For j = 1 To i
     st = st + s(j) + ";"
   Next j
Print #1, st
Close #1
End Sub

因为不知道你每40个加什么间隔，所以我就直接没给你加，你自己加上就行了。另外为了方便选择文件，用了一个CommonDialog控件，需要手动加入控件

非常感谢帮忙，谢谢