Help converting small vb6 function to vb.net

[PT Exorcist]

help converting vb6 code to .net code(as i am using c# avoid plz putting specific vb words):

Dim lRec As Long
Dim fn As Integer
fn = FreeFile
MsgBox Len(lRec)
Open Left(Drive, 1) & ":\track01.cda" For Random As #fn Len = Len(lRec)
Get #fn, 7, lRec
GetCD_ID1 = Hex$(lRec)
Close fn

i am really needing this function and i dont seem to understand that vb6 commands...could anyone help me with this?