Read offset and pointer

TextBox1.Text = ReadPointerInteger("FVCE", "FVCE.dll" + &H1EC6B4C, &H70, &H4, &H18, &H0, &H54, &H588)

Public Function ReadPointerInteger(ByVal NAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Integer
        Dim Value As Integer
        If Process.GetProcessesByName(NAME).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(NAME)(0).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    Value = ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                Value = ReadMemoryInteger(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function