Private Sub Command4_Click()
 Set objExcel = CreateObject("Excel.Application")
 Set objBook = objExcel.Workbooks.Add(App.Path & "\" & Text8.Text & ".xls")
 'Set objSheet = objBook.Worksheets(1)
 'On Error Resume Next
    Open App.Path & "\" & Text7.Text & ".txt" For Input As #1
         Input #1, textFromTextFile
    Close #1
 Text9.Text = textFromTextFile

 objExcel.Visible = True
 objExcel.Cells(2, 3).Value = textFromTextFile '"77"
 objExcel.Quit
 Set objExcel = Nothing
End Sub

objExcel.Visible = True

objExcel.Cells(2, 3).Value = textFromTextFile'"77"
 objExcel.ActiveWorkbook.Save
 objExcel.Quit
 Set objExcel = Nothing