Dim oldcolor

Sub DoMouseOver()
     oldColor = window.event.srcElement.style.color
     window.event.srcElement.style.color = "Black"
End Sub

Sub DoMouseOut()
     window.event.srcElement.style.color = oldColor
End Sub