Boa tarde.

Caso a diferença do valor digitado no txtpesonf e pesobal seja IGUAL e ATÉ 1% tanto para mais quanto para menos, deve aparecer "não" no labelglosa, se a diferença for MAIOR de 1% tanto para mais quanto para menos, deve aparecer "sim" no labelglosa.

Utilizei o código abaixo mas não consegui adaptar para mais de 1% e "=" à 1%

Private Sub txtpesobal_Change()
On Error Resume Next
Me.Labeldiferença.Caption = Me.txtpesobal.Value - Me.txtimp.Value
If ((Me.txtpesobal.Value - Me.txtimp.Value) / Me.txtpesobal) > 0.01 Then
Me.Labelglosa.Caption = "Sim"
Else
Me.Labelglosa.Caption = "Não"
End If
End Sub