[Resolvido]Deixar em branco a caixa de texto que tiver valor "0"

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim j As Byte
Static c As Boolean
For j = 1 To 12
    Me("txt" & j).ForeColor = IIf(Me("txt" & j) = 0, IIf(c, Me.Detalhe.AlternateBackColor, Me.Detalhe.BackColor), vbBlack)
Next
c = IIf(c, 0, -1)
End Sub

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim j As Byte, E1!, E2!, T1!, T2!
Static c As Boolean
For j = 1 To 12
    Me("txt" & j).ForeColor = IIf(Me("txt" & j) = 0, IIf(c, Me.Detalhe.AlternateBackColor, Me.Detalhe.BackColor), vbBlack)
Next
For j = 1 To 12
    If IsNull(Me("txt" & j)) Or Me("txt" & j) = 0 Then
        E1 = Me("txt" & j).left + ((Me("txt" & j).Width / 2) - (567 * 0.1))
        E2 = Me("txt" & j).left + ((Me("txt" & j).Width / 2) + (567 * 0.1))
        T1 = Me("txt" & j).Top + (Me("txt" & j).Height / 2)
        T2 = (Me("txt" & j).Top + (Me("txt" & j).Height / 2)) + (0.01 * 567)
        Me.Line (E1, T1)-(E2, T2), vbBlack, BF
    End If
Next
c = IIf(c, 0, -1)
End Sub