Windows System VB.Net

Imports System
Public Class MainClass
   Shared Sub Main()
        For i As Integer = 1 To 255
            If Environ(i).Length = 0 Then Exit For
            Console.WriteLine( Environ(i) )
        Next i
   End Sub 
End Class