bonjour voici mon code

Private Sub Option1_Click()
Dim recuper As String
Dim i As Integer
Dim R
Dim FF As Long
Dim stA As Single
Dim aa As Single
If (Text1.Text <> " ") Then
recuper = Text1.Text
End If

FF = FreeFile
R = "D:\Optimas 6.5\Valeurs\"
R = R & recuper
Open R For Input As #FF

'Do Until EOF(FF)
' Line Input #FF, stA
'Loop


stA = R.Worksheets("rapport").Cells(4, 9)
longueur.val.Text = stA
Close #FF
End Sub

en effet j un fichier excel(je tape son nom "dans Valeurs" ou la premiere feuille "rapport" contient une certaine valeur que je veux récupérer et mettre dans textbox.
c'est ou le probleme
merci