Experimente algo conforme baixo, no evento before update do txt, ou onde as somas são efetuadas:

Private Sub textboxTotal _BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Val(textboxTotal .Value) < 0 Then
    'textboxTotal .Value = Format(tbx_qtd.Value, "(#,##0.00)")
     textboxTotal .ForeColor = RGB(255, 0, 0)
End If
End Sub

Valeu Reinaldo muito obrigado!
Um abraço

Boa noite!!

Olá Oscar, pra manter o fórum organizado, por favor, marque sua postagem como resolvido, quando for o caso!!
Veja como em:
viewtopic.php?f=7&t=3784

Att