VBA

Sub Prozedurname()

End Sub

'Datentyp Ganzzahl
Dim x As Integer

'Datentyp Dezimalzahl
Dim y As Double

'Datentyp Zeichenkette
Dim z As String

x = 10
y = 42.77
z = "Hallo"

a = b * c
b = 10 * d

Dim i As Integer
For i = 1 To 10
    Debug.Print i
Next

Do Until [Bedingung]
   Anweisungen
Loop

'Beispiel
Dim zaehler As Integer
Do Until zaehler = 10
   zaehler = zaehler + 1
Loop


Do While [Bedingung]
   Anweisungen
Loop

'Beispiel