While...Wend Statement
αα βαααβαααααα·ααΈβαα½αβαααααβααα ααααΈβαααααβααΆααα While ααΆααΆαααααββααααααααΒ α ααααα·αβααΎβααααααααβαα·αβαα·α αααααα·ααΈβααααβαααβααααΆααβαααααΆααβααΈβααα ααααΈβαααααβααΆααα WendΒ α ααΎβααααααααβαα·α ααααα·αβαα»αβααααΌαβααΆαβααααα·ααααα·βααΆααβααβαααααα·ααΈβαα½αβ Wend α αΎαβαααααΆααβααβαααβαααα‘ααβαα βααα ααααΈβαααααβααΆααα While Β α ααΎβααααααααβαα βααβαα·α αααβααααα·αβαα»αβααααΌαβααΆαβααααα·ααααα·βααααβαααΒ α
αα»αβααΈβααα ααααΈβαααααβααΆααα Do...Loop α’αααβαα·αβα’αΆα βααααααβααααα·αβαα»α While...Wend αααβααααΎ ExitΒ α αα»αβα ααβααΈβααααα·αβαα»α While...Wend αααβααααΎ GoTo αααβααΆαβααβαααβα’αΆα βαααααΆαβα²ααβααΆαβααα α»αβαααβαααΒ αβ
Do...Loop ααΆαβααααααβαααβαααΎαβααΆα 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