Du kannst mehrere InputBoxen mit ner For Schleife anzeigen, die ergebnisse in einem Array speichern
und dann mit Random einen zufälligen Array ausgeben.
Beispiel:
Dim $input[10]
For $i = 0 To 9
$input[$i] = InputBox("Text", "Gib nen Text ein")
Next
MsgBox(0, "Test", $input[Random(0, 9, 1)])