Public Function WriteBytes(ByVal P As Process, ByVal memAdr As Long, ByVal _
   bytes As Byte(), ByVal length As UInteger) As Boolean
        Dim bytesWritten As IntPtr
        Dim result As Integer = WriteProcessMemory(P.Handle, New IntPtr( _
          memAdr), bytes, length, bytesWritten)
        Return result <> 0
    End Function

Public Function StrToByteArray(ByVal str As String) As Byte()
        Dim encoding As New System.Text.ASCIIEncoding()
        Return encoding.GetBytes(str)
    End Function

WriteBytes(p, ADDRESSE, StrToByteArray(TextBox1.Text), TextBox1.TextLength)