how to figure out the problem of not sychronizing of macro execute

[whb0922]

how to figure out the problem of not sychronizing of macro execute

such as .Transmit "S"
.Transmit Text1
End If
.TransmitTerminalKey rcVtUpKey
all is done only after macro is completed
if you run the macro step by step you can see
the interface does not react untill all step of
macro is completed .why ? how to deal with it?
i would like interface react instantly.
tks my phone 9177153792




Sub CHIP53A()
With Session
Dim found0, found1, found2 As Boolean
Dim Text1, Text2 As String
Dim r1, r2 As Integer
Dim c1, c2 As Integer
found1 = Session.FindText("input from", .ScreenTopRow,

0)
r1 = .FoundTextRow
c1 = .FoundTextColumn + 30
If found1 Then
Text1 = .GetText(r1, c1, r1, c1 + 7)
.Transmit "S"
.Transmit Text1
End If
.TransmitTerminalKey rcVtUpKey
End With
End Sub