Function Prueba()
'Referenciar Microsoft Excel XX.XX OBject Library
Dim objExcel As Excel.Application
 Set objExcel = New Excel.Application
 objExcel.Visible = True
 'determina el numero de hojas que se mostrara en el Excel
  objExcel.SheetsInNewWorkbook = 1
 'Crea el Libro
 objExcel.Workbooks.Add

  With objExcel.ActiveSheet
   'Formato(fila,columna)
   'Lo que tu pides E56
   .Cells(56, 5) = "Prueba"
   'Donde he puesto Prueba...mete el valor del txtBox
   'es decir
   .Cells(56, 5) = Me.MitxtBox.Value
  End With
  Set objExcel = Nothing
End Function