(Ask) konversi code delphi ke VB.NET

[Servermaster]

permisi agan2,,ane mw minta tolong ne,,ane lg ngerjain TA ne,ane bkin pke bahasa VB.NET,,tp ane kagak ketemu referensinya dalam bahasa VB.NET,,yg ane nemu dalam bahasa Delphi,,tp ane kagak ngerti gan mohon bantuannya ne buat agan2 master delphi,,,ne codenya gan..


Code:

function FindFirstHeader(filename: string): Integer;
var
filemp3: File;
headerArray: array[0..3] of byte;
count, pos: Integer;
begin
Result:=-1;
if FileExists(filename) then
begin
AssignFile(filemp3, filename);
FileMode:=fmOpenRead;
Reset(filemp3,1);
//looping sampai dapat header file
pos:=0;
while not eof(filemp3) do
begin
seek(filemp3, pos);
BlockRead(filemp3, headerArray, 4, count);
if ((headerArray[0]=$FF) and ((headerArray[1]=$FB) or
(headerArray[1]=$FA))) then
begin
Result:=pos;
break;
end else
begin
pos:=pos+1;
end;
end;
CloseFile(filemp3);
end else
begin
exit;
end;
end;

mohon bantuannya gan

</div>