Private Sub TextBox3_Change()
If TextBox3.Value = "" Then
Else
Set busca = Workbooks(Worksheets("Sistema").Range("F20").Value).Worksheets("PRODUTOS").Cells.Find(TextBox3.Value)
If Not busca Is Nothing Then
Label8.Caption = Workbooks(Worksheets("Sistema").Range("F20").Value).Worksheets("PRODUTOS").Range("B" & busca.Row).Value
x = 0
Label10.Caption = Format(x, "#,##00.00;-#,##00.00")
Label10.Caption = Label8.Caption - Label7.Caption
Else
Label8.Caption = "Não existe!"
End If
End If
End Sub