saving data from a text box to excel using VB 6.0

[bubblysush]

on execution, i get a blank space only on the cell where my text box data has to be saved... plzzzzzzzzzzz help me.. plzzzzzzzzzzzzzz :(

my code is below

Private Sub Form_Load()
   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
 
   'Start a new workbook in Excel
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
 
   'Add data to cells of the first worksheet in the new workbook
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1").Value = "Name"
   oSheet.Range("B1").Value = "Time"
   'oSheet.Range("A1:B1").Font.Bold = True
   oSheet.Range("A2").Value = Text5.Text
   oSheet.Range("B2").Value = "John"
 
   'Save the Workbook and Quit Excel
   oBook.SaveAs "C:\Book1.xls"
   oExcel.Quit
 
End Sub

[PsychoCoder]

This is the VB.NET forum, moving to Visual Basic 4/5/6 forum