Есть программа - нужен код - VB

Option Explicit
 
Dim WORDApp As New Word.Application
Dim MyText1, MyText2 As String
Dim ACount As Long
Dim Task As Integer
 
Private Sub Form_Load()
Timer1.Interval = 100
ACount = 1
 
WORDApp.Visible = True
WORDApp.Documents.Add , , , True
Task = 1
 
MyText1 = "Text1" & vbLf
MyText2 = "Text2"
End Sub
 
'Type Stuff to screen in a Document
Public Function TypeString(TXTString As String) As Boolean
'On Error Resume Next
WORDApp.Selection.TypeText TXTString
End Function
 
Private Sub NextTask()
    Task = Task + 1
    Timer1.Interval = 900
    ACount = 1
    
End Sub
 
Private Sub Task1()
 
Timer1.Interval = 100
TypeString Mid$(MyText1, ACount, 1)
ACount = ACount + 1
If ACount > Len(MyText1) Then NextTask
 
End Sub
 
Private Sub Task2()
 
Timer1.Interval = 100
TypeString Mid$(MyText2, ACount, 1)
ACount = ACount + 1
If ACount > Len(MyText2) Then NextTask
 
End Sub
 
Private Sub Task3()
 
Timer1.Interval = 100
WORDApp.Selection.TypeBackspace
NextTask
 
End Sub
 
Private Sub Task4()
 
Timer1.Interval = 100
TypeString ("3")
NextTask
 
End Sub
 
 
Private Sub Timer1_Timer()
 
Select Case Task
Case 1:
    Task1
Case 2:
    Task2
Case 3:
    Task3
Case 4:
    Task4
Case Else:
    End
End Select
End Sub