mnaking dll

Public Function UserDocument()
Dim number
number = 1000
Dim fso As Variant
Dim objFile As Variant
Dim filename As String
filename = "c:\TestDLL.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.CreateTextFile(filename)
objFile.WriteLine ("Created at: " & Now)
Set objFile = Nothing
Set fso = Nothing
End Function
Public Function UserDoc()
Dim fso As Variant
Dim objFile As Variant
Dim filename As String
filename = "c:\TestDLL2.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.CreateTextFile(filename)
objFile.WriteLine ("Terminated at: " & Now)
Set objFile = Nothing
Set fso = Nothing
End Function

this is DLL for creating simple text file but i have the form in which i wnat to enter the values and that vales ahould come in this text file. The values are enetres in the form according to the session variable 'student name' how will i catch the session variable nand the enterd daat in the form will come in this dll and will caret the text file
pls help me out