העלאת קבצים ללא קומפננטה

ניסיתי לבנות את ההעלאה כמו במאמר, ויש שגיאה שאומרת:


Invalid procedure call or argument: 'mid'

השגיאה מראה טעות בשורה:

GetPostedData = Mid(strData, DataPos, DataEndPos – DataPos + 1)

מישהו יודע למה הטעות?