我自己已经解决了

Private Sub Command3_Click()
Dim i As Integer
 For i = 0 To File1.ListCount - 1  '循环文件列表下的所有文件
    Open File1.Path & "\" & File1.List(i) For Binary As #1 'output 写入文件 没有则自动建立该文件 当然我们要提供路径
      Put #1, 12, Text2.Text
      Put #1, 18, Text3.Text 
    Close #1
    Next i
     'MsgBox "您已经成功设置" & " " & File1.ListCount & " " & "个文件！", , "提示"
End Sub