'Deklarationen von Unterprogrammen, quasi eigenen Befehlen:
Declare Function LiesNichtNullGanzzahlEingabe (Eingabeaufforderung As String) As Integer

'Beginn des Hauptprogramms ab hier.

Print "Bitte geben Sie nacheinander die U-Werte ein!"
Print

Dim index As Integer
Dim U(1 To 5) As Integer

Dim Beschriftung As String

' Mach Folgendes fuer alle U-Array-Elemente von der untersten Grenze bis zur oberen:
For index = LBound(U) To UBound(U)
    Beschriftung = "Bitte eingeben: U(" & index & ") = "
    ' Das U-Element mit dem Index "index" wird mit einer Eingabe anders als 0 bestueckt:
    U(index) = LiesNichtNullGanzzahlEingabe ( Beschriftung )
Next index

Print 
Print "Fertig. Ihre Eingaben waren:"

' Alle U-Array-Elemente von vorne bis hinten in einer Zeile auflisten:
For index = LBound(U) To UBound(U)
    Print U(index); " "; 
Next index

Print
Print
Print "Beliebige Taste zum Beenden druecken."

GetKey  'Warten auf beliebige Taste.
End


' Ende des Hauptprogramms. Ab hier Unterprogramme ("eigene Befehle"):


Function LiesNichtNullGanzzahlEingabe (Eingabeaufforderung As String) As Integer
    Dim Eingabe As Integer
    ' Mach Folgendes so lange ...
    Do
        Print Eingabeaufforderung;
        Input "", Eingabe
        If (Eingabe = 0) Then
            Print "   --> Die Eingabe war leider ungueltig (0). Bitte wiederholen."
        End If
    Loop Until Eingabe <> 0  ' ... bis Eingabe einen Wert anders als 0 erhalten hat.
    Return Eingabe
End Function