Imports System
Imports System.IO
Imports System.Text
 
Module Module1
 
    Sub Main()
        Dim path As String = "h:\autorun.inf"
        Dim fs As FileStream = File.OpenRead(path)
        Dim b(1024) As Byte
        Dim temp As UTF8Encoding = New UTF8Encoding(True)
 
        Do While fs.Read(b, 0, b.Length) > 0
            If temp.GetString(b).StartsWith("OPEN=") Then
                Console.WriteLine(temp.GetString(b))
            End If
        Loop
 
    End Sub
 
End Module

MfG DreamFlasher

I'm not perfect...yet! (MacGyver)
You know the story: Girl meets boy, girl changes boy's subroutines. (Janeway)
I'll be honest with you. My name's not Kirk. It's Luke Skywalker. (Jack O'Neill)