I try to make a balloon information to work. (Word 2010)
Sadly it doesnt work.

<code>

Function balloon()
Dim balloon1 As Object
Dim balloon2 As Object
Set balloon1 = Assistant.NewBalloon
balloon1.Heading = "Informatie Ballon"
Set balloon2 = Assistant.NewBalloon
balloon2.Heading = "Aanwijzing Ballon"
balloon1.Show
balloon2.Show
balloon1.Heading = "First balloon, new heading"
balloon1.Show
End Function

</code>

it stops by the text "balloon1.Heading = "Informatie Ballon"

and then there is the problem to get the acctualy informatien in the balloon.

Can somebody help me please!

I have also tried this one:

<code>

Public Sub ballon()
Dim bln As Object
Dim lblTxt As String

Set bln = Assistant.NewBalloon
With bln
.Heading = "instructies voor gebruik van deze sheet"
.Text = "Klik in de Celladresbalk op het zwarte driehoekje"
lblTxt = "Vanuit het tabblad invoegtoepassingen, kies ..............."
.Labels(1).Text = lblTxt
.Labels(2).Text = "Selecteer een optie uit de celladres balk"
.Labels(3).Text = "Selecteer een week uit de balk"
.Checkboxes(1).Text = "Ga voorbij aan deze informatie"
.BalloonType = msoBalloonTypeNumbers
.Mode = msoBalloonTypeNumbers
.Mode = msoModeModal
.Button = msoButtonSetOK
.Show
End With

End Sub

</code>