谁能把这段C#代码翻译成VB.NET

Question

下面的翻译应该是没有错的，但可能没有楼主所希望的结果。
    Private Declare Auto Function SendARP Lib "Iphlpapi.dll" (ByVal dest As Integer, ByVal host As Integer, ByRef mac As IntPtr, ByRef length As IntPtr) As Integer
    Private Declare Auto Function inet_addr Lib "Ws2_32.dll" (ByVal ip As String) As IntegerDim ldest As Integer = inet_addr("172.16.0.4") '目的地的IP
            Dim lhost As Integer = inet_addr("172.16.3.154") '本地的IP
   Try            
            Dim macinfo(6) As Byte
            Dim length As Integer = 6
            Dim mac As IntPtr = New IntPtr(macinfo(0))
            Dim len As IntPtr = New IntPtr(6)
            Dim ii As Integer = SendARP(ldest, lhost, mac, len)
            Me.Text = mac.ToString & len.ToString
        Catch ex As Exception
            ex.ToString()
        End Try