IfWhile: code

• Voor de niet-lege string
  
  Dim buffer As String
  While buffer = ""
  buffer = InputBox("Geef een niet lege string")
  Wend
  'of nog:
  'do
  'buffer = InputBox("Geef een niet lege string")
  'loop until not buffer=""
  MsgBox "Je string is: " & buffer
  
  
• Voor het getal
  
  Dim buffer As String
  Dim getal As Double
  Do
  buffer = InputBox("Geef een getal")
  Loop Until IsNumeric(buffer)
  getal = buffer
  Select Case getal
  Case Is < 0
  MsgBox "Het getal is negatief"
  Case 0
  MsgBox "Het getal is nul"
  Case Is > 0
  MsgBox "Het getal is positief"
  End Select
  
• Voor de datum
  
  Dim buffer As String
  Do
  buffer = InputBox("Geef een datum")
  Loop Until IsDate(buffer)
  MsgBox "Je datum is: " & buffer
  

[VB Web] - [hlrnet] - [copyright]