Attribute VB_Name = "Module1"
Option Explicit
Const strOpenCatalog As String = "Please open a catalog and try again"
Const CONST_FileFilter = "Text File (*.txt)|*.txt"
Const CONST_DefaultExt = "*.txt"
Sub Main()
    Dim CumulusApp As Cumulus5.Application
    Dim recLayout As Layout
    Dim fieldDef As FieldDefinition
    Dim iFieldDef As Integer

    Set CumulusApp = CreateObject("Cumulus5.Application")

    ' check for a catalog being opened
    If CumulusApp.CatalogCollections.Count = 0 Then
        MsgBox strOpenCatalog, vbOKOnly + vbExclamation, "Cumulus"
        Exit Sub
    End If

    CommonDialog1.Filter = CONST_FileFilter
    CommonDialog1.DefaultExt = CONST_DefaultExt
    CommonDialog1.ShowOpen

    Open CommonDialog1.FileName For Output As #1
    Print #1, "UID" + vbTab + "English" + vbTab + "German" + vbTab +
"French" + vbTab +
"Japanese"

    Set recLayout = CumulusApp.FrontCollection.Catalog.RecordLayout
    For iFieldDef = 0 To recLayout.FieldDefinitions.Count - 1
        Set fieldDef = recLayout.FieldDefinitions.Item(iFieldDef)
        Print #1, fieldDef.FieldUID + vbTab + fieldDef.Name(1) + vbTab +
fieldDef.Name(2)
+ vbTab + fieldDef.Name(4) + vbTab + fieldDef.Name(3)
    Next iFieldDef

    Close #1
End Sub