Probleme valeur saisie dans userform

Bonjour,
j'ai créer une boite de saisie avec userform

je voudrais que la valeur entrée dans cette boite soit reprise dans la macro
voila le code que je tente de mettre en place
la valeur donnée reste toujours vide elle ne prend pas la valeur saisie

Private Sub cmdValider_Click()
Dim objCell As Range
Dim donnée As Range
If Me.txtNom.Value = "" Then
MsgBox "numero de bon."
Me.txtNom.SetFocus
Exit Sub
End If
Me.txtNom.Value = donnée
'------------------------------------------------------------

With Worksheets("feuille de saisie")
End With
If donnée > Empty Then
For Each objCell In Range("F9:F30")
If objCell.Value = donnée Then objCell.Offset(0, 3) = Time
Next objCell

' On décharge le formulaire
Unload Me
End If
End Sub

j'ai besoin d'aide pour continuer mon projet
merci