No es exactamente lo que tu necesitas, pero con esto te puede hacer una idea de cómo se puede hacer lo que quieres:
Define esto junto con tus otras variables
Dim objExcel As excel.Application
Dim xlSheet As excel.Worksheet
Ya en cualquier parte del código pon:
Set objExcel = New excel.Application
objExcel.Visible = False ' esto es para que no se vea la hoja, si lo ponen True entonces el enfoque se pasará al archivo excel.
'objExcel.SheetsInNewWorkbook = determina el numero de hojas que se mostrara en el Excel
objExcel.Workbooks.Add ' agrega una hoja al archivo
With objExcel.ActiveSheet
.Cells(10, 3) = "valor_de_la_celda" ' con esto pones un valor en una celda
.......
......
End With
Ahora si lo que quieres es abrir un archivo en excel y poner el contenido de determinada celda, entonces averigua como puedes abrir el archivo y ya luego sumplemente devuelves el valor, por ejemplo poner
Text1.Text = .Cells(10, 3)
Para abrir el archivo haz una macro en excel que abra un archivo, luego edita esa macro y copia adaptando el código al Visual... búscale ya verás que no es tan dificil......