vb script error checking add this function and write the data to a file

[nickhere@xxxx]

function wrtdata(a)
Dim filesys, testfile 
Set filesys = CreateObject("Scripting.FileSystemObject") 
Set testfile= filesys.CreateTextFile("c:\somefile.txt", True) 
testfile.Write a
testfile.Close 
end function
rem ________________________

bb=12314
wrtdata bb