How do i continue a do loop until in vbs?

Question

set WshShell = WScript.CreateObject("WScript.Shell")


WScript.Sleep 4000

Do
WshShell.SendKeys " my text {ENTER}"
WScript.Sleep 300
counter = counte