Visual Basic - Ayuda con comunicacion MSComm1

Que tal compañeros espero no molestaeles con mi pregunta pero quiciera saber si pudiesen ayudarme con un prolemiya que tengo, veran. Requiero controlar una serie de reledadores por medio de un pic el cual se comunica atravez del puerto serial con la pc. La comunicasion ya la teng probada con la iperterminal de windous y trabaja correctamente; ahora lo que requiero es tener un programa en VB que se encarge de la comunicacion ya realise el cual trasmite los datos pero los trasmite en forma de codigo ascii y yo lo que requiero es que los trasmita en forma binaria ya que tengo que mandar valores a siertas variables del pic asi como resivir informacion del puerto A/ D de dicho procesador.
olvidava decirles que el programa que realice lo lee el puerto de entrada del ordenador y no lo puede mostrar en una caja de texto
portal motivo le suplico que si algien me pudiera echar una mano se los agradecere acontinuacion les pongo el codigo que tengo para dicho propocito
Private Sub cmdTrasmitir_Click()

Dim DatoTx As String
Dim DatoRx As String

DatoTx = texDatotx

'configuracion del puerto de comunicaciones

MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"

'abrir el puerto de comunicaciones

MSComm1.PortOpen = True

'Buelca el dato al bufer de salida

MSComm1.InBufferCount = 0
MSComm1.InputMode = comInputModeBinary

'manda el bit de codigo

MSComm1.Output = DatoTx

'lee el dato de regreso

texDatorx.Text = MSComm1.Input

'Cierra el puerto de comunicaciones

MSComm1.PortOpen = False

texDatorx.Text = DatoRx

End Sub

por su ayuda mil gracias

P.D. Suy nuevo en esto

REVISATE EL POST DE MAS ABAJO!