Поздравление с 8 марта на VBA (Assistant)

Sub Congratlation()
    Dim ast As Assistant
    Randomize
    
    ThisWorkbook.Worksheets(1).Cells(1, 1).Value = Empty
    
    Set ast = Assistant
    
    ast.On = True
    ast.Filename = "F1.ACS"
    ast.Visible = True
    ast.Left = 550 + Int((900 * Rnd) - 450)
    ast.Top = 400 + Int((700 * Rnd) - 350)
    ast.Animation = msoAnimationGreeting
    If Application.Wait(Now + TimeValue("0:00:03")) Then
    With ast.NewBalloon
        .BalloonType = msoBalloonTypeButtons
        .Text = "Уважаемые сотрудницы!"
        .Show
    End With
    End If
    
    ast.Filename = "CLIPPIT.ACS"
    ast.Left = 550 + Int((800 * Rnd) - 400)
    ast.Top = 400 + Int((600 * Rnd) - 300)
    ast.Animation = msoAnimationGestureDown
    If Application.Wait(Now + TimeValue("0:00:03")) Then
    With ast.NewBalloon
        .BalloonType = msoBalloonTypeButtons
        .Text = "Позвольте нам в этот торжественный день..."
        .Show
    End With
    End If
    
    ast.Filename = "ROCKY.ACS"
    ast.Left = 550 + Int((800 * Rnd) - 400)
    ast.Top = 400 + Int((600 * Rnd) - 300)
    ast.Animation = msoAnimationListensToComputer
    If Application.Wait(Now + TimeValue("0:00:03")) Then
    With ast.NewBalloon
        .BalloonType = msoBalloonTypeButtons
        .Text = "Поздавить вас С Международным Женским Дём 8 МАРТА!"
        .Show
    End With
    End If
    
    ast.Filename = "DOT.ACS"
    ast.Left = 550 + Int((800 * Rnd) - 400)
    ast.Top = 400 + Int((600 * Rnd) - 300)
    ast.Animation = msoAnimationListensToComputer
    If Application.Wait(Now + TimeValue("0:00:03")) Then
    With ast.NewBalloon
        .BalloonType = msoBalloonTypeButtons
        .Text = "С душистой веточкой сирени" & vbCrLf & _
        "Весна приходит в каждый дом," & vbCrLf & _
        "От всей души Вас поздравляем" & vbCrLf & _
        "С Международным Женским днём!"
        .Show
    End With
    End If
    
    ast.Filename = "MNATURE.ACS"
    ast.Left = 550 + Int((800 * Rnd) - 400)
    ast.Top = 400 + Int((600 * Rnd) - 300)
    ast.Animation = msoAnimationGetArtsy
    If Application.Wait(Now + TimeValue("0:00:03")) Then
    With ast.NewBalloon
        .BalloonType = msoBalloonTypeButtons
        .Text = "Пусть радостью сегодня солнце светит," & vbCrLf & _
        "В тени оставив сноп больших тревог," & vbCrLf & _
        "И все цветы, какие есть на свете," & vbCrLf & _
        "Цветут сегодня пусть у Ваших ног."
        .Show
    End With
    End If
    
    ast.Filename = "MERLIN.ACS"
    ast.Left = 550 + Int((800 * Rnd) - 400)
    ast.Top = 400 + Int((600 * Rnd) - 300)
    ast.Animation = msoAnimationThinking
    If Application.Wait(Now + TimeValue("0:00:03")) Then
    With ast.NewBalloon
        .BalloonType = msoBalloonTypeButtons
        .Text = "Пусть первый подснежник" & vbCrLf & _
        "Подарит Вам нежность!" & vbCrLf & _
        "Весеннее солнце подарит тепло!" & vbCrLf & _
        "А мартовский ветер подарит надежду," & vbCrLf & _
        "И счастье, и радость, и только добро."
        .Show
    End With
    End If
    
    ast.Filename = "Offcat.ACS"
    ast.Left = 550 + Int((800 * Rnd) - 400)
    ast.Top = 400 + Int((600 * Rnd) - 300)
    ast.Animation = msoAnimationGreeting
    If Application.Wait(Now + TimeValue("0:00:03")) Then
    With ast.NewBalloon
        .BalloonType = msoBalloonTypeButtons
        .Text = "Признаться надо в этот час," & vbCrLf & _
        "Что в центре мирозданья -" & vbCrLf & _
        "Вы, женщины. Мы любим вас," & vbCrLf & _
        "Как в первый миг свиданья!"
        .Show
    End With
    End If
    
    If Application.Wait(Now + TimeValue("0:00:03")) Then
        ast.Animation = msoAnimationGetArtsy
    End If
    If Application.Wait(Now + TimeValue("0:00:03")) Then
        ast.Animation = msoAnimationPrinting
    End If
    ast.Animation = msoAnimationGoodbye
    ast.Visible = False
    
    Set ast = Nothing
End Sub