Option Explicit
 
Private mobjXLSApp As New Excel.Application
 
Private Sub cmdRead_Click()
  Me.txtCell1 = mobjXLSApp.Cells(1, 1)
  Me.txtCell2 = mobjXLSApp.Cells(2, 1)
End Sub
 
 
Private Sub cmdWrite_Click()
  mobjXLSApp.Cells(1, 1) = Me.txtCell1
  mobjXLSApp.Cells(2, 1) = Me.txtCell2
End Sub
 
Private Sub Form_Load()
  mobjXLSApp.Workbooks.Open App.Path & "\test.xls", , , , , , True, , , True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  'mobjXLSApp.SaveWorkspace
  mobjXLSApp.Quit
  Set mobjXLSApp = Nothing
End Sub