'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Konstanten
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' ''''''''
        Const BORDER = 20
        Const TEXT As String = "Hallo Welt"
 
    End Sub
 
    Public Sub Kontrollstrukturen()
        Dim i As Integer : i = 0
 
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' ''''''''
        ' If
        If i = 0 Then
            ' Tue etwas
        ElseIf i = 1 Then
            ' Tue etwas anderes
        Else
            ' Tue Sonstiges
        End If
 
        If i = 0 Then i = 1 ' Kurzform für einen Befehl
 
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' ''''''''
        ' Select case
        Select Case i
            Case 0
                ' Tue etwas
            Case 1
                ' Tue etwas anderes
            Case Else
                ' Tue sonstiges
        End Select
 
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' ''''''''
        ' Schleifen
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' ''''''''
 
        ' kopfgetestet
        Do While i > 0
            ' Tue etwas
        Loop
 
        Do Until i <= 0
            ' Tue etwas
        Loop
 
        ' endgetestet
        Do
            ' Tue etwas
        Loop While i > 0
 
        Do
            ' Tue etwas
        Loop Until i <= 0
 
        ' Test in der Schleife
        Do
            If i <= 0 Then Exit Do
        Loop While i > 0
 
        ' Zählschleifen
        For i = 1 To 20 Step 2
            ' Tue etwas
        Next i
 
        ' Aufzählungen, Collections
        Dim a(10) As Integer
        Dim vt As Object        ' Bei arrays muß die Variable vom Typ Variant 
        ' sein
        For Each vt In a
            ' Tue etwas
        Next vt
 
        ' Weitere Strukturen
        GoTo Sprungmarke
 
Sprungmarke:
        ' Goto nur in Ausnahmefällen benutzen
 
        ' Ältere Schleifenkonstruktion, möglichst nicht mehr verwenden !!!
        While i > 0
            ' Tue etwas
        End While
    End Sub
 
    ' Beispielprozedur
    Public Sub Beispielprozedur(ByVal para1 As Integer, ByRef para2 As Integer, _
      ByVal para3 As Integer)
        ' Verarbeite die Daten
    End Sub
 
    ' Beispielfunktion
    Public Function Beispielfunktion(ByVal para1 As Integer, ByVal para2 As _
      String) As Integer
        ' Führe Berechnungen durch
        Beispielfunktion = 42
 
        ' oder
        Return 42
    End Function
 
    ' Aufrufe
    Public Sub Aufrufe()
        Dim i As Integer
 
        Beispielprozedur(1, i, 3) ' Jetzt mit Klammern
 
        Call Beispielprozedur(1, i, 3)
 
        i = Beispielfunktion(1, "Text")
    End Sub
End Module