Visual Basic - AYUDA!!!!!!!!!1

COMO HAGO PARA QUE EN UNA APLICACION ESTANDAR ME DEVUELVA UN VALOR DE UNA CELDA DE EXCEL A UN TEXTBOX GRACIAS

Primero debes crear una referencia a la Microsoft Excel Object Library

Dim Libro As Workbook

Private Sub Form_Load()
Set Libro = GetObject("C:\Windows\Escritorio\Libro1.xls")
End Sub

Private Sub Command1_Click()
Text1.Text = Libro1.Worksheets("Hoja1").Range(celda).Value
End Sub

Creo que esto funcionará.
Un saludo.

Esta línea tiene un fallo:
Text1.Text = Libro1.Worksheets("Hoja1").Range(celda).Value
Sería:
Text1.Text = Libro.Worksheets("Hoja1").Range(celda).Value