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