کد نوشتن در فایل تصادفی

سلام دوستان من یه کد می خوام که یه سری اصلاعات که کاربر تعیین کرده فک کنم UDT بش می گن رو از کاربر بگیره و بعد اونو تو یه فایل تصادفی دخیر کنه
اگه امکانش هست یه توضیح هم بدید که چیکار کردید خصوصا اگه تو سورس توضیح بدید که بهتره
منظورم ایناست

کد:

---

Type        TypeName


End Type

---

یه همچین چیزی بعد هر چی تو اینا تعریف کردین تو فایل ذخیره کنه البته به روش تصادفی
پیشاپیش ممنون

من ایم کدو نوشتم از روی یه رکورد بخونه
ولی فقط یه حرفو چاپ می کنه


Private Sub Command1_Click()
Dim intNum As Integer
Dim I As Integer
Dim st As String

intNum = FreeFile
Open "c:\txtfile.txt" For Random As #intNum
Do While Not EOF(intNum)
Get #intNum, 1, st
Print st
Loop
Close #intNum

End Sub