Excel 2010 VBA looping

[CRUTHERFORD]

Hello,

Please can you tell me how I can the below macro to repeat 5 times... it doesn't work...

Let x = 0
Do while x < 5

.WaitForEvent rcEnterPos, "30", "0", 5, 48
.WaitForDisplayString "POOL:", "30", 5, 42
.TransmitANSI "revim"
.TransmitTerminalKey rcIBMBackSpaceKey
.TransmitANSI "pricing inss"
.TransmitTerminalKey rcIBMBackSpaceKey
.TransmitTerminalKey rcIBMBackSpaceKey
.TransmitTerminalKey rcIBMBackSpaceKey
.TransmitANSI "ssue"
.TransmitTerminalKey rcIBMTabKey
.TransmitANSI "xxxxxxxxxxxxxx"
.TransmitTerminalKey rcIBMPf2Key
X = x + 1
Loop

thanks,

 

[Llupo01]

hello,

pls try this, hope this helps:

Dim i As Integer

For i = 1 To 5

.WaitForEvent rcEnterPos, "30", "0", 5, 48
.WaitForDisplayString "POOL:", "30", 5, 42
.TransmitANSI "revim"
.TransmitTerminalKey rcIBMBackSpaceKey
.TransmitANSI "pricing inss"
.TransmitTerminalKey rcIBMBackSpaceKey
.TransmitTerminalKey rcIBMBackSpaceKey
.TransmitTerminalKey rcIBMBackSpaceKey
.TransmitANSI "ssue"
.TransmitTerminalKey rcIBMTabKey
.TransmitANSI "xxxxxxxxxxxxxx"
.TransmitTerminalKey rcIBMPf2Key

Next