Sub CreateANDWriteXL(FLname As String, Xpos As Int, Ypos As Int)
Dim newWorkbook As WritableWorkbook
newWorkbook.Initialize(File.DirInternal, FLname)
Dim sheet1 As WritableSheet
sheet1 = newWorkbook.AddSheet("BloodFlight",0)
Dim cell As WritableCell
'A0
cell.InitializeText(0, 0, "Hello")
sheet1.AddCell(cell)
Amended to this.
In fact after playing with the code, just the first two lines of code, creating the workbook, creates and unreadable xls file
End Sub