VB CSGO - Pastebin Offset Updater

Imports System.Net
Imports System.Text.RegularExpressions

Namespace CSGOCheat
    Class Offsets
        Private Shared pbID As String = "0wHUC39L"
        Public Shared oFlags As Integer = &H100
        Public Shared oHealth As Integer = &HFC
        Public Shared o_iFov As Integer = &H31D0
        Public Shared oScoped As Integer = &H388C
        Public Shared oItemDefinitionIndex As Integer = &H2F88
        Public Shared oAttribManager As Integer = &H2D70
        Public Shared oRank As Integer = &H1A44
        Public Shared oWins As Integer = &H1B48
        Public Shared oItem As Integer = &H2DB0
        Public Shared oSpotted As Integer = &H939
        Public Shared oClrRender As Integer = &H70
        Public Shared oShotsFired As Integer
        Public Shared oViewAngles As Integer
        Public Shared oVecPunch As Integer
        Public Shared aLocalPlayer As Integer
        Public Shared aJump As Integer
        Public Shared oEntityList As Integer
        Public Shared oCrossHairID As Integer
        Public Shared oAttack As Integer
        Public Shared oGlowIndex As Integer
        Public Shared oGlowObject As Integer
        Public Shared oPlayerResource As Integer
        Public Shared oRadar As Integer
        Public Shared oViewMatrix As Integer
        Public Shared oClientState As Integer
        Public Shared oActiveWeaponID As Integer
        Public Shared oMaxAlpha As Integer
        Public Shared oTeam As Integer
        Public Shared oDormant As Integer

        Public Shared Sub setOffsets()
            Dim web As New WebClient()
            Dim data As String = web.DownloadString("http://pastebin.com/raw/...".Replace("...", pbID))
            Dim exp As Regex
            Dim match As Match
            Dim offsetString As String() = {"LocalPlayer -> m_dwLocalPlayer:", "Extra -> m_dwForceJump:", "EntityList -> m_dwEntityList:", "DT_Local -> m_iCrossHairID:", "Extra -> m_dwForceAttack:", "Extra -> m_dwGlowObject:",
                "DT_CSPlayer -> m_iGlowIndex:", "DT_CSPlayerResource -> CSPlayerResource:", "RadarBase -> m_dwRadarBase:", "EngineRender -> m_dwViewMatrix:", "ClientState -> m_dwClientState:", "DT_BasePlayer -> m_hActiveWeapon:",
                "DT_CSPlayer -> m_flFlashMaxAlpha:", "ClientState -> m_dwViewAngles:", "DT_Local -> m_vecPunch:", "DT_CSPlayer -> m_iShotsFired:", "BaseEntity -> m_bDormant:", "DT_BaseEntity -> m_iTeamNum:"}
            For oL As Integer = 0 To offsetString.Length - 1
                exp = New Regex(offsetString(oL) + " .*")
                match = exp.Match(data)
                Dim result As String = match.ToString().Replace(exp.ToString().Replace(".*", ""), "").Replace(" ", "").Replace("_", "")
                Dim tVal As Integer = result.Length
                result = result.Substring(0, tVal - 1)
                Dim rInt As Integer = Convert.ToInt32(result, (16))
                Select Case oL
                    Case 0
                        aLocalPlayer = rInt
                        Exit Select
                    Case 1
                        aJump = rInt
                        Exit Select
                    Case 2
                        oEntityList = rInt
                        Exit Select
                    Case 3
                        oCrossHairID = rInt
                        Exit Select
                    Case 4
                        oAttack = rInt
                        Exit Select
                    Case 5
                        oGlowObject = rInt
                        Exit Select
                    Case 6
                        oGlowIndex = rInt
                        Exit Select
                    Case 7
                        oPlayerResource = rInt
                        Exit Select
                    Case 8
                        oRadar = rInt
                        Exit Select
                    Case 9
                        oViewMatrix = rInt
                        Exit Select
                    Case 10
                        oClientState = rInt
                        Exit Select
                    Case 11
                        oActiveWeaponID = rInt
                        Exit Select
                    Case 12
                        oMaxAlpha = rInt
                        Exit Select
                    Case 13
                        oViewAngles = rInt
                        Exit Select
                    Case 14
                        oVecPunch = rInt
                        Exit Select
                    Case 15
                        oShotsFired = rInt
                        Exit Select
                    Case 16
                        oDormant = rInt
                        Exit Select
                    Case 17
                        oTeam = rInt
                        Exit Select
                End Select
            Next
        End Sub
    End Class
End Namespace