Может так подойдёт? Я правда не знаток работы с текстовыми файлами  
 
Private Sub CommandButton1_Click()  
   Dim FN As Long, Ctrl As Control, iFileName As String, iPath As String, strText As String  
 
   If MsgBox("Сохранить данные в текстовый файл?", 36, "Сохранение") = vbNo Then Exit Sub  
   FN = FreeFile  
   iFileName = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1) & "_Data"  
 
   iPath = "D:\"    'укажите свой путь  
   On Error Resume Next  
   Open iPath & iFileName & ".txt" For Append As #FN  
   If Err = 75 Then  
       Err.Clear  
       MsgBox "Нет доступа к диску: " & iPath, 48, "Ошибка"  
       Exit Sub  
   End If  
 
   For Each Ctrl In Me.Controls  
       If TypeName(Ctrl) = "TextBox" Then strText = strText & Ctrl.Value & "          "  
   Next Ctrl  
   Print #FN, strText  
   Close #FN  
   MsgBox "Данные сохранены в файл: " & iPath & iFileName & ".txt", 64, "Сохранение"  
End Sub

Чёрт, движок съел самое главное - 10 пробелов в кавычках :)

ааа, в моём сообщении тоже ))

За ночь собрал пример :) Цикл по контролам без привязки к номеру (For Each), может есть смысл переделать, как KL подсказал.

{quote}{login=Hugo}{date=12.05.2010 09:05}{thema=}{post}За ночь собрал пример :) Цикл по контролам без привязки к номеру (For Each), может есть смысл переделать, как KL подсказал.{/post}{/quote}  
 
Hugo, огромное спасибо за пример. С его помощью у меня все получилось!