Adding a Sub to a Script

I new to this so don't laugh. I am trying to add a this

'==================================================================================================
 Sub Exceltest
	Set objExcel = CreateObject("Excel.Application")
	objExcel.Visible = True
	Set objWorkbook = objExcel.Workbooks.Add()
	objWorkbook.SaveAs("BOHARDYEXCELTEST1.XLS")
	objExcel.Quit
End Sub
'==================================================================================================

  to ROIScan.  Ultimately I want the subroutine to extract the computer name, Version of Office, and OS.  Put it into a spreadsheet, copy the cells to outlook and email it to me.  But I can't even get the main module to see the subroutine and run it.

Does anyone have any ideas?