Como modificar datos en textbox de userform

Tengo éste código tomado de internet que o adapte para mi formulario, pero, necesito modificar una vez que lo encuentra. ¿Cómo puedo hacer?

Private Sub cmdbuscar_Click()
Set Rango = Range("A:A").Find(what:=Txtnumero, _
LookAt:=xlWhole, LookIn:=xlValues)
If Rango Is Nothing Then
MsgBox "El dato no fue encontrado", vbOKOnly + vbInformation, "AVISO"
Txtnumero = "": Txtnumero.SetFocus
Exit Sub
Else
Txtdescripcion = Range("B" & Rango.Row)
Txtmodelo = Range("C" & Rango.Row)
Txtestado = Range("D" & Rango.Row)
Txtobservaciones = Range("E" & Rango.Row)
End If
End Sub