Function myassist(hlpheading As String, hlptext As String, animate As String)
Dim xl As Excel.Application
On Error Resume Next
Set xl = GetObject(, "Excel.Application")
If Err.Number <> 0 Then 'excel is not running
Set xl = CreateObject("Excel.Application")
End If
xl.WindowState = xlMinimized
xl.Application.Visible = True
With xl.Assistant.NewBalloon
.heading = hlpheading
.Text = hlptext
.Animation = animate
.Show
End With
End Function

Private Sub Command1_Click()
x = myassist("This is where you will have heading", "This is where you will have Actual Help Text","msoAnimationWritingNotingSomething")
End Sub