Como ponerle el nombre de un Text a un documento de Excel desde VB 6.0

Necesito saber como ponerle el nombre que ingrese al text 1 a un documento de excel que el mismo programa genera para guardar los datos que ingrese.  Mi programación es esta:

Dim sdata As String

_________________________________________________________________________________________

Private Sub Command1_Click()

sdata = Text1.Text & vbTab & Combo1.Text & vbTab & Text2.Text & vbTab & Combo2.Text & vbTab & Text3.Text & Combo3.Text & vbTab & Text4.Text & vbTab & Text5.Text & vbTab & Text6.Text & vbTab & Text7.Text & vbTab & Text8.Text

Clipboard.Clear

Clipboard.SetText sdata

Dim oExcel As Object
Dim oBook As Object
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add

oBook.Worksheets(1).Range("A1").Select
oBook.Worksheets(1).Paste
a = Text1.Text

oBook.SaveAs "C:\Users\Usuario\Desktop\YO\(nombre que deseo ingresar).xlsx"
oExcel.Quit
Form3.Hide
Form2.Show
End Sub

Necesito saber cómo poner el texto del Text1 en donde dice: (nombre que deseo ingresar)

Gracias