rev to text file

I am trying to create a dll addin to pdm enterprise so when afilehits a certain state in the workflow the part name and rev#wouldautomaticlly be appended to a txt file. Anyone doing somethinglikethis now or want to lead me in the right direction.

I have started with this example but am getting nowhere :-(

Private Sub ShowHistory(file As IEdmFile5)
On Error GoTo ErrHand

  Dim verEnum As IEdmEnumeratorVersion5
  Set verEnum = file
  Dim pos As IEdmPos5
  Set pos = verEnum.GetNextRevision
  Dim ver As IEdmVersion5
  Dim message As String
  message = "History of " + file.name +":" + vbLf
  Dim str As String
  While Not pos.IsNull
    Set ver = verEnum.GetNextRevision(pos)
    str = ver.versionNo
    message = message + str
    str = ver.fileDate
    message = message + ", file date=" +str +", user=" + ver.user.name
    str = ver.FileSize
    message = message + ", file size=" +str +" bytes, comment=" + ver.Comment + vbLf
  Wend
  MsgBox message
  Exit Sub

ErrHand:
  Dim ename As String
  Dim edesc As String
  file.vault.GetErrorString Err.Number, ename, edesc
  MsgBox ename + vbLf + edesc
End Sub

SolidworksApi macros