Visual Basic - Ayuda para insertar datos en excel

Necesito que alguien me diga como he de hacer para insertar el contenido de un text en una celda de una hoja de excel,

Para abrir la hoja pongo este codigo en un command

Set hexcel = CreateObject("Excel.application")
Dim objLibro As Object
Dim ruta As String
ruta = App.Path & "\carlos.xls"

If Len(Dir(ruta)) > 0 Then
Set objLibro = hexcel.Workbooks.Open(ruta)
hexcel.Visible = True
Else
MsgBox "El archivo no existe"
End If

Y lo que necesito, es que el contenido de un text me los inserte por ejemplo en la celda A1.

Si alguien me pudiera ayudar, lo agradecería.-

Prueba con esto espero te sirva:

HExcel.cells(1, 1).Value = Textt2.Text

Saludos Pola. Espero te sirva.