مشکل با فایل های ترتیبی در ویژال بیسیک

سلام
من میخوام با فایل های های ترتیبی در ویژال بیسیک کار کنم یه فرم ساده است که چند تکس باکس برای گرفتن اطلاعات داره و چند دکمه برای ذخیره ونمایش و خروج -میخوام وقتی روی گزینه ذخیره کلیک کردم محتوای تمامی تکس باکس ها در قالب یک فایل تکست ذخیره بشه ولی نمیدونم چرا ارور میده لطفآ کمک کنید
در ضمن متغییر رو توی ماجول تعریف کردم

کد:

---

Type student
    id As Integer
    firstname As String
    lastname As String
    tell As Integer
    Avrage As Integer
End Type

---

اینم کد

کد:

---

Dim r As Integer
r = FreeFile
Dim x As student
  x.ID = Val(Text1.Text)
  x.firstname = Str(Text2.Text)
  x.lastname = Str(Text3.Text)
  x.birthday = CDate(Text4.Text)
  x.avrage = Val(Text5.Text)
  x.tell = Val(Text6.Text)
  commondlg1.ShowSave
Open commondlg1.FileName For Output As r
Print #r, x.ID, x.firstname, x.lastname, x.birthday, x.avrage, x.tell
Close

---