Como poner el nombre de un Text a un documento de Excel

Hol aque tal Dante, con una pregunta, yo tengo esta programación:

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 ingresado en el text1>.xlsx"
oExcel.Quit
Form3.Hide
Form2.Show
End Sub

Y lo que necesito es que el nombre que se ingrese en el Text1 sea el que se le asigne al documento.  Gracias.