Imporre in casi particolari la riapertura dell'InputBox

Qualora in casi particolari, stabiliti dal codice, la stringa ritornata dall'InputBox non soddisfi una determinata condizione (o perché non sia stata inserita la stringa prevista, operché non è stata inserita alcuna stringa), è possibile, volendo, imporre con un apposito ciclo la riapertura continua dell'InputBox, sino a quando non sia stata soddisfatta la condizione richiesta per la stringa ritornata.

Mostriamo un semplice esempio pratico, nel quale non si uscirà dal ciclo, finché non sia stata immessa nell'InputBox una qualsiasi stringa di caratteri:

Public Sub Form_Open()
 
 Dim rit As String
 
  Do
 
    rit = InputBox("Inserire una stringa qualsiasi:")
 
' Se non è stata immessa nell'InputBox alcuna stringa, torna all'inizio del ciclo:
  Loop Until Not IsNull(rit)
  
  Print "E' stata immessa nell'InputBox la seguente stringa di caratteri:\n"; rit
  
End