WriteProcessMemory Unicode Text Help :S -

Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long

Public Sub WriteToMem(Address As Long, Value As Long)
Dim hwnd As Long, pid As Long, phandle As Long

hwnd = FindWindow(vbNullString, "vbNullString")
    If (hwnd <> 0) Then
        GetWindowThreadProcessId hwnd, pid
        phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
            If (phandle <> 0) Then
                WriteProcessMemory phandle, Address, Value, 4, 0&
            End If
        CloseHandle phandle
    End If
End Sub

Public Sub WriteANOP(Address As Long, Value As Byte)
Dim hwnd As Long, pid As Long, phandle As Long

hwnd = FindWindow(vbNullString, "DEFAULT")
    If (hwnd <> 0) Then
        GetWindowThreadProcessId hwnd, pid
        phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
            If (phandle <> 0) Then
                WriteProcessMemory phandle, Address, Value, 1, 0&
            End If
        CloseHandle phandle
    End If
End Sub

Private Sub cmdApply_Click()
Dim Name As String
Name = txtName.Text
WriteToMem &H712D02, Name
End Sub