'Hallo Tech....
'Hier ein kleiner Lösungsansatz...Das Beispiel speichert alle auf der Form 
' liegenden Textboxen und Label-Controls For Append in einer Datei.
'NG.:02.05.03
Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case Is = 0: Call SaveAllControlContents(App.Path & "\" & "test.txt")
        Case Is = 1: Call Unload(Me)
    End Select
End Sub
 
Private Sub SaveAllControlContents(ByVal Filename As String)
    Dim fno     As Integer
    Dim ctrl    As Control
    On Error GoTo procErr
 
    fno = FreeFile
 
    Open Filename For Append As #fno
        For Each ctrl In Me.Controls
            If TypeOf ctrl Is TextBox Then
                Print #fno, ctrl.Text
                Debug.Print ctrl.Text
            End If
                If TypeOf ctrl Is Label Then
                    Print #fno, ctrl.Caption
                    Debug.Print ctrl.Caption
            End If
        Next
 
    Close #fno
 
    On Error GoTo 0
ExitSub:
    Exit Sub
procErr:
    Call MsgBox(Err.Number & " " & Err.Description, vbCritical, "Error...")
    Resume ExitSub
End Sub
'MfG
'Frank