jQuery/JavaScript Java VBA

This function will create a file on the file system. It accepts 2 arguments: a file name, and file contents as string.

Sub SaveFile(sName As String, sContents As String)
Dim iFile As Integer
iFile = FreeFile()
Open sName For Binary Access Write As #iFile
Put #iFile, , sContents
Close #iFile
End Sub