Metin Kutusu Renklendirme

Hayırlı günler 
Ben hesaplama değerini metin 1 e yanzdırıyorum ama sonuca göre 
GARANTI DEVAM EDIYOR yeşil renk
GARANTİ BASLAMADI mavi renk
GARANTİ BITTI kirmizi renk
Olmasını istiyorum bu konuda yardımcı olabilirmisiniz

Sonuca göre renklendirme için if yapısı içinde metinkutusu.BackColor = vbGreen (yeşil), vbBlue (mavi), vbRed (kırmızı) olarak renklendirme yapabilirisiniz.

Örneği inceleyiniz.

metin1=0 ise garanti başlamadı
metin1 1ile12 arasında ise garanti devam ediyor
metin1 12 den büyükse garanti bitti olarak ayarladım.

Teşekkür ederim Allah razı olsun