Text einblenden beim anfahren einer Symbolleiste

Sub Symbolleiste_ein()
'Variablen deklarieren
Dim oBar As CommandBar
Dim oBtn2 As CommandBarButton
Dim oBtn3 As CommandBarButton
'Symbolleiste benennen
Set oBar = CommandBars.Add("Test")
' Symbolleistenposition festlegen
oBar.Position = msoBarTop
Set oBtn2 = oBar.Controls.Add
With oBtn2
.Caption = "Menü1"
.OnAction = "M1"
.Style = msoButtonIconAndCaption
.FaceId = 592
End With
Set oBtn3 = oBar.Controls.Add
With oBtn3
.Caption = "Menü2"
.OnAction = "M2"
.Style = msoButtonIconAndCaption
.FaceId = 700
End With
'Symbolleist einblenden
oBar.Visible = True
End Sub

Frage dazu: wenn die Symbolleiste geladen wurde, kann man den Code irgend wie erweitern, dass wenn ich mit der Maus über so einen Button fahre, (nicht klicke) dass mir dann ein , von mir definierter Text angezeigt wird. Ich kenne das von VB6, dort heist diese Funktion ToolTip.
Gibts das bei VBA ?
Danke Kai