Slutning på sætning var ventet

Når jeg prøver at køre dette vbs-script kommer fejlen:
Linje 2
Tegn 14
Slut på sætning var ventet
kode 800a0401
-----------------------------
Her kommer koden:

Sub main()
Dim filename As String
Dim Temp As String
Dim endpos As Integer
Dim mylength As Integer
Set myOlApp = GetObject("", "Outlook.Application")
' retrieve Outlook Templates
filename = Dir$("c:\*.oft", vbNormal)
Do Until filename = ""
mylength = Len(filename)
' strip off the extension from the filename. This will be the
name of the form.
endpos = InStr(1, filename, ".oft", 1)
strTemp = Trim(Mid(filename, 1, endpos - 1))
' publish all Outlook forms into the Personal Registry
Set myItem =
myOlApp.createitemfromtemplate("C:\" & filename)
Set myform = myItem.formdescription
myform.Name = strTemp
myform.PublishForm olPersonalRegistry
filename = Dir$
Loop
End Sub


Hvad mangler der... formoder at der mangler indlæsning af et eller andet?