office assistant

[wwbwb]

Hello all, using a code from the board I've gotten this far.

Sub Helper()

Dim rspns As Integer

    Set myballoon = Assistant.NewBalloon

    With myballoon
        .BalloonType = msoBalloonTypeButtons
        .Button = msoButtonSetNone
        .Text = "Do you need help?" _
            & Application.Rept(Chr(13), 2) & "What do you need help with?"
        .Labels(1).Text = "Part Numbers Sheet"
        .Labels(2).Text = "Marketing Inven Sheet"
        .Labels(3).Text = "Scanable Card Sheet"
        .Labels(4).Text = "Label Sheet"
        .Labels(5).Text = "Other"
        rspns = .Show
    End With

    Select Case rspns
        Case 1: MsgBox "howdy"
        Case 2: MsgBox "wuz up"
      End Select


End Sub

Now this works, but I like annoying my coworkers with the assistant and instead of the msgbox, want the information to continue to come from the assistant. But everytime I replace the Msgbox code with code to change the text in the assistant balloon, it tells me "case without select case" error. Ideas?