Power Point - Slide actual

Estoy haciendo una presentación y necesito que un texto se muestre en la slide actual cuando el ratón pase por un objeto. Tengo el código en una slide,pero no sé como hacer para no tener que repetirlo en cada slide:

Public Sub visibleTexto()
slide1.text.visible = False
slide1.text.Left = 0
slide1.text.Top = 128.5
slide1.text.Value = < Texto a mostrar>
slide1.text.visible = True
end sub

¿como puedo eliminar "slide1" y sustituirlo por algo que en cada caso determine la slide en la que está?

Muchas gracias por todo.