In diesem Beispiel wird die Environ-Funktion verwendet, um die Eintragsnummer und Länge der PATH-Anweisung aus der Tabelle der Umgebungszeichenfolgen zu bestimmen und anzuzeigen. Nicht verfügbar auf dem Macintosh.
Dim UmgZF, Indx, Mldg, PfadLänge ' Variablen deklarieren. Indx = 1 ' Index mit 1 initialisieren. Do UmgZF = Environ(Indx) ' Umgebungsvariable ' bestimmen. If Left(UmgZF, 5) = "PATH=" Then ' PATH-Eintrag prüfen. PfadLänge = Len(Environ("PATH")) ' Länge bestimmen. Mldg = "PATH-Eintrag = " & Indx & " und Länge = " & PfadLänge Exit Do Else Indx = Indx + 1 ' Kein PATH-Eintrag, End If ' also hochzählen. Loop Until UmgZF = "" If PfadLänge > 0 Then MsgBox Mldg ' Meldung anzeigen. Else MsgBox "Es existiert keine PATH-Umgebungsvariable." End If