エクセルＶＢＡ計算結果をｍｓｇに表示

お世話になります、この度for Eath C in Range("B3").Re Size(6,7) if Application.count If Range("B3:B500"),C.Varue)>0 Thenこの計算結果をｍｓｇに表示させる構文をどなたか教えてください。