Excel VBA .Net

Merhaba arkadaşlar; Textbox29'dan Textbox54'e kadar olan textboxlar için;

Açılışta : TextBox29-54.BackColor = vbWhite
Sıfır ise : TextBox29-54.BackColor = vbWhite
Sıfırdan büyükse : TextBox29-54. > 0 Then TextBox29-54.BackColor = vbYellow

Diğer textboxlara dokunmaması lazım.
Yukardaki kodu mantık çerçevesinde yerleştiremedim bir türlü.
Bir de bu kod "UserForm_Initialize" içinde mi olmalı yoksa ayrı "change" mi olmalı.
Yardımlarınız için şimdiden teşekkürler.

Açılışta zaten beyaz geliyor, bunun için bir şey gerekmez. Farklı bir renk isterseniz :
UserForm_Initialize içine:

Kod: Tümünü seç

Private Sub UserForm_Initialize()
TextBox1.BackColor = vbRed
End Sub


Açıldıktan sonraki veri girişlerinin durumuna göre ise TextBox1_Change içine:

Kod: Tümünü seç

Private Sub TextBox1_Change()
If TextBox1.Value > 0 Then
TextBox1.BackColor = vbYellow
Else
TextBox1.BackColor = vbWhite
End If
End Sub

Teşekkür ederim. Ancak verdiğiniz kod sadece TextBox1 için görünüyor.
Benim istediğim, sıralı halde olan TextBox29 dan başlayıp TextBox54'e kadar toplam 25 kutuyu renklendirmek.
Tek tek 25 adet "Private Sub TextBox1_Change()" ayarlamak uzun ve yorucu. Üstelik değiştirmesi de zor.