
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