How to retrieve VT tranasaction entries using VT Transaction 5 Objects

I am new to this, so apologies in advance.

I can retrieve transaction details using the following code:

Public Sub ExtractData()
Dim MyCompany As Company
Dim Counter As Long
Dim Entry As Entry
Set MyCompany = OpenCompany("C:\Transact\Testco.tra")
For Each Account In MyCompany.AllAccounts
Counter = Counter + 1
ActiveSheet.Cells(Counter + 1, 1) = Account.CodeNumber
ActiveSheet.Cells(Counter + 1, 2) = Account.Name
ActiveSheet.Cells(Counter + 1, 3) = Account.Parent
ActiveSheet.Cells(Counter + 1, 4) = Account.Value
Next
MyCompany.CloseFile
End Sub

but what I really want to get at are the individual entries that make up the transactions. I have tried using the code

For Each Entry in MyCompany.AllTransactions.Transaction.Entries

(and many variations of the above) but I get error messages such as object required.

Any help appreciated,

Tom