Jo, det går ganska lätt även om jag har svårt att förstå syftet och betvivlar att det är den snyggaste lösningen.
Börja med att skapa en referens till Excel.
Sedan kan du gå igång med följande
Private Sub WriteToExcel(MyValue as integer)
dim oExcel as application
dim oWbk as Excel.workbook
oExcel=new Excel.Application
owbk=oExcel.Workbooks.Open("C:\Myxlfile.xls")
owbk.Sheets(1).Range("E5").value=Myvalue
owbk.close
oexcel.quit
end Sub