Afbryd program - afvent bruger indtastning

Du kan lave et inputfelt i et loop, hvor brugeren
kan foretage sine valg, jvf. følgende eksempel
Du kan selv kopiere det ind i et vbs-program og køre det


dim txt, emne


do

  txt = "Hvad skal medtages?"& chr(13) & "Indtast nr." & chr(13) & chr(13)
  txt = txt & " 1  ansøgning" & chr(13)
  txt = txt & " 2  blyant"& chr(13)
  txt = txt & " 3  kuglepen "& chr(13)
  txt = txt & " 4  godt humør "& chr(13)
  txt = txt & " 5  stige "& chr(13)
  txt = txt & "------------------------"& chr(13)
  txt = txt & "Du har valgt..."& chr(13)
  txt = txt & total_valg

valg = inputbox(txt,"Ved OK til tomslag går du videre")

if valg = "" then exit do

select case valg

  case "1"
      emne = "ansøgning"

  case "2"
      emne = "blyant"

  case "3"
      emne = "kuglepen"

  case "4"
      emne = "godt humør"

  case "5"
      emne = "stige"
end select



total_valg = total_valg & chr(13) & emne


loop

msgbox (total_valg)