Imports SystemPublic 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