ຄຳສັ່ງ While...Wend

ເມື່ອໂປຣແກຣມພົບຄຳສັ່ງ While, ມັນຈະກວດສອບເງື່ອນໄຂ. ຖ້າເງື່ອນໄຂເປັນ False, ໂປຣແກຣມຈະດຳເນີນການຕໍ່ໃນແຖວທີ່ຕາມຫຼັງຄຳສັ່ງ Wend ທັນທີ. ຖ້າເງື່ອນໄຂເປັນ True, ວົງຈອນຈະຖືກປະມວນຜົນຈົນກວ່າໂປຣແກຣມຈະພົບ Wend ແລ້ວຈຶ່ງກະໂດດກັບຄືນໄປຫາຄຳສັ່ງ While. ຖ້າເງື່ອນໄຂຍັງເປັນ True ຢູ່, ວົງຈອນຈະຖືກປະມວນຜົນອີກຄັ້ງ.

ຕ່າງຈາກຄຳສັ່ງ Do...Loop, ທ່ານບໍ່ສາມາດຍົກເລີກວົງຈອນ While...Wend ດ້ວຍຄຳສັ່ງ Exit. ຫ້າມອອກຈາກວົງຈອນ While...Wend ດ້ວຍ GoTo ເດັດຂາດ ເພາະອາດເຮັດໃຫ້ເກີດຂໍ້ຜິດພາດໃນເວລາດຳເນີນການ (run-time error).

ຄຳສັ່ງ Do...Loop ມີຄວາມຢືດຢຸ່ນກວ່າ While...Wend.

    While Condition [statements] Wend

  Sub ExampleWhileWend
      Dim stext As String
      Dim iRun As Integer
      sText ="ນີ້ແມ່ນຂໍ້ຄວາມສັ້ນໆ"
      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