Function GetName() As String
Dim pptr As Long
pptr = ReadLong(KO_PTR_CHR)
GetName = ReadString(ReadLong(pptr + &H5BC), ReadLong(pptr + &H5BC + 4))
End Function

Function ReadString(ByVal pAddy As Long, ByVal OtoSize As Boolean, Optional ByVal LSize As Long = 1) As String
Dim Value As Byte
Dim tex() As Byte
On Error Resume Next
If OtoSize = True Then
ReadProcessMem KO_HANDLE, pAddy, Value, 1, 0&
LSize = Value
ReDim tex(1 To LSize)
ReadProcessMem KO_HANDLE, pAddy, tex(1), LSize, 0&
ReadString = StrConv(tex, vbUnicode)
Else
If LSize = 0 Then
MsgBox "Fazla Karakter içeriyor..", vbCritical, "Hata"
Exit Function
Else
ReDim tex(1 To LSize)
ReadProcessMem KO_HANDLE, pAddy, tex(1), LSize, 0&
ReadString = StrConv(tex, vbUnicode)
End If
End If
End Function