While...Wend Statement
āϝāĻāύ āĻāĻāĻāĻŋ āĻĒā§āϰā§āĻā§āϰāĻžāĻŽā§ āĻāĻāĻāĻŋ While āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻĒāĻžāĻā§āĻž āϝāĻžā§, āĻāĻāĻŋ āĻļāϰā§āϤ āĻĒāϰā§āĻā§āώāĻž āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āϝāĻĻāĻŋ āĻļāϰā§āϤāĻāĻŋ False āĻšā§, āϤāĻžāĻšāϞ⧠āĻĒā§āϰā§āĻā§āϰāĻžāĻŽāĻāĻŋ āϏāϰāĻžāϏāϰāĻŋ Wend āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻ āύā§āϏāϰāĻŖ āĻāϰāĻžāϰ āĻŽāĻžāϧā§āϝāĻŽā§ āĻāĻžāϞāĻžāύ⧠āĻšā§āĨ¤ āϝāĻĻāĻŋ āĻļāϰā§āϤāĻāĻŋ True āĻšā§, āϤāĻžāĻšāϞ⧠āĻĒā§āϰāĻā§āϰāĻžāĻŽā§ Wend āĻā§āĻāĻā§ āύāĻž āĻĒāĻžāĻā§āĻž āĻĒāϰā§āϝāύā§āϤ āϞā§āĻĒāĻāĻŋ āĻāĻžāϞāĻŋā§ā§ āϝāĻžā§ āĻāĻŦāĻ āϤāĻžāϰāĻĒāϰ āϏā§āĻĨāĻžāύ āĻĒāϰāĻŋāĻŦāϰā§āϤāύ āĻāϰ⧠While āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻĒā§āϰā§āĻŦā§ āĻĢāĻŋāϰ⧠āϝāĻžā§āĨ¤ āϝāĻĻāĻŋ āĻļāϰā§āϤāĻāĻŋ āϤāĻāύāĻ True āĻšā§, āϤāĻžāĻšāϞ⧠āϞā§āĻĒāĻāĻŋ āĻĒā§āύāϰāĻžā§ āĻāĻžāϞāĻžāύ⧠āĻšā§āĨ¤
Do...Loop āĻāϰ āĻŽāϤ āύā§, āĻāĻĒāύāĻŋ āĻāĻāĻāĻŋ While...Wend āϞā§āĻĒ āĻĒā§āϰāϏā§āĻĨāĻžāύ āĻāϰ āĻŽāĻžāϧā§āϝāĻŽā§ āĻŦāĻžāϤāĻŋāϞ āĻāϰāϤ⧠āĻĒāĻžāϰā§āύ āύāĻžāĨ¤ āĻāĻāύāĻ While...Wend āϞā§āĻĒ GoTo āĻĻā§āĻŦāĻžāϰāĻž āĻŦāĻžāϤāĻŋāϞ āĻāϰāĻŦā§ āύāĻž, āϝā§āĻšā§āϤ⧠āĻāĻāĻŋ āϰāĻžāύ āĻāĻžāĻāĻŽ āϤā§āϰā§āĻāĻŋāϰ āĻāĻžāϰāĻŖ āĻšāϤ⧠āĻĒāĻžāϰā§āĨ¤
A Do...Loop is more flexible than a While...Wend.
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
While Condition [Statement] Wend
āĻāĻĻāĻžāĻšāϰāĻŖ:
Sub ExampleWhileWend
Dim stext As String
Dim iRun As Integer
sText ="This is a short text"
iRun = 1
while iRun < Len(sText)
if Mid(sText,iRun,1 )<> " " then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )
iRun = iRun + 1
Wend
MsgBox sText,0,"Text encoded"
End Sub