请教一段vb.net代码转换成vb的问题

  看到一个很不错的vb.net代码，想转换成vb，自己调试了很多天，但是还是没用弄好，甚为郁闷。后来继续搜索找到了其相应的c,c#和jscript代码，但是就是没有找到关于vb相关方面的代码。自己搞不定只有拿到这里来向各位请教了，谢谢。

下面列出vb.net代码，一个类文件。
Public Class JSDecoder

    Private Const STATE_COPY_INPUT = 100
    Private Const STATE_READLEN = 101
    Private Const STATE_DECODE = 102
    Private Const STATE_UNESCAPE = 103

    Private Pick_Encoding, rawData As Integer()
    Private Transformed(2, 287), Digits(122) As Integer

    Public Sub New()
        InitArrayData()
    End Sub

    Private Sub InitArrayData()
        Dim i, j As Integer
        Pick_Encoding = New Integer() { _
        1, 2, 0, 1, 2, 0, 2, 0, 0, 2, 0, 2, 1, 0, 2, 0, _
        1, 0, 2, 0, 1, 1, 2, 0, 0, 2, 1, 0, 2, 0, 0, 2, _
        1, 1, 0, 2, 0, 2, 0, 1, 0, 1, 1, 2, 0, 1, 0, 2, _
        1, 0, 2, 0, 1, 1, 2, 0, 0, 1, 1, 2, 0, 1, 0, 2 _
        }

        rawData = New Integer() { _
        &H64, &H37, &H69, &