iPos = InStr(1,strContents,"<!--TITLE:")
If iPos = 0 then
  strTitle = "Untitled (" & objFile.Name & ")"
  strDesc = ""
Else
  strTitle = Mid(strContents,iPos+10,InStr(iPos,strContents,"-->")-iPos-10)
iPos = InStr(iPos,strContents,"<!--DESC:")
If iPos = 0 then
  strDesc = ""
Else
strDesc = Mid(strContents,iPos+9,InStr(iPos,strContents,"-->")-iPos-9)
End If
End If

My question is i dont really know what this program is doing? Can anyone explain this for me? And what does it mean by -ipos-9 ????
confused..

This take a string and try to extract some information from it

Let assume that strContents containt:
"Some text""

'Find the prosition of the string "<!--TITLE:" from the Start.
'iPos will be equal to 14
iPos = InStr(1,strContents,"<!--TITLE:")

'Verify that the string "<!--TITLE:" was found
If iPos = 0 then
    'In case no found
    strTitle = "Untitled (" & objFile.Name & ")"
    strDesc = ""
Else
    'Extract the value of title.
    'iPos+10 is the next character after the string "<!--TITLE:".
    'Start after the string until it find the string "-->".
    'It will return "The Title"
    strTitle = Mid(strContents,iPos+10,InStr(iPos,strContents,"-->")-iPos-10)

    'Find the prosition of the string "<!--DESC:"
    'from the position of the string "<!--TITLE:"
    'iPos will be equal to 45
    iPos = InStr(iPos,strContents,"<!--DESC:")

    'Verify that the string "<!--DESC:" was found
    If iPos = 0 then
        strDesc = ""
    Else
        'Extract the value of Desc.
        'iPos+9 is the next character after the string "<!--DESC:".
        'Start after the string until it find the string "-->".
        'It will return "The description"
        strDesc = Mid(strContents,iPos+9,InStr(iPos,strContents,"-->")-iPos-9)
    End If
End If

Stéphane Lajoie

thanks for your help =D !!!!!!!!