طلب مساعدة في تحويل كود من vb الى vb.net

السلام عليكم وحمة الله وبركاته...

اواجه صعوبه في تحويل الكود التالي من vb الى vb.net .....فهل هناك من يستطيع مساعدتي ولو بالقليل...مع جزيل الشكر...:)

Option Explicit

Public Length As Long

Public Channels As Integer

Public DataLength As Long



Public Sub WaveHeaderIN(sPath As String)

Dim ifree As Integer

    ifree = FreeFile

    Open sPath For Binary Access Read As #ifree

        Length = LOF(ifree) - 8

        Get #ifree, 23, Channels

        DataLength = LOF(ifree) - 44

    Close #ifree

End Sub



Public Sub WaveHeaderOUT(sPath As String)



Dim ifree As Integer

    ifree = FreeFile

    Open sPath For Binary Access Write As #ifree



        Put #ifree, 5, Length

        Put #ifree, 23, Channels

        Put #ifree, 29, CLng(( Channels) / 8))

        Put #ifree, 33, CInt((Channels) / 8)

        

    Close #ifree

End Sub