how to create new .xls file in c drive and open,save,update with vb6

Dim xlApp As Excel.Application
Dim wb As Workbook
Dim ws As Worksheet
Dim var As Variant

Set xlApp = New Excel.Application

Set wb = xlApp.Workbooks.Open("PATH TO YOUR EXCEL FILE")

Set ws = wb.Worksheets("Sheet1") 'Specify your worksheet name
var = ws.Range("A1").Value

'or
var = ws.Cells(1, 1).Value

ws.Cells(1, 1).Value = "Sample Text"
wb.Close
xlApp.Save
xlApp.Quit

Set ws = Nothing
Set wb = Nothing
Set xlApp = Nothing