Option Explicit
Private Sub UserForm_Activate()
Dim contrl As Control
For Each contrl In Me.Controls
If TypeOf contrl Is msforms.TextBox Then
If contrl.Value = "0" Then
contrl.BackColor = vbBlack
Else: contrl.BackColor = vbWhite
End If
End If
Next
End Sub