My problem is
I want to enter the values from the textbox to the already existing xlbook say "C:\STOCK.XLS"
How to add the following code in the xlbook.
Xlsheet.cells(2,1)=text1.text


Private Sub Form_Load()
Set xlBook = GetObject("C:\STOCK.xls")
' Display Microsoft Excel and the Worksheet
' window.
xlBook.Application.Visible = True
xlBook.Windows(1).Visible = True
End Sub