Trying to output code from excel to the comm port

i send an ascii string from excel


Output from the port is monitored using terra term (like hyper terminal)

when trying to sending output i get no registered output on terra term at the receiving end

when sending code out through terra term i get output registered on the receiving end and response from the system


i presume i have missed some process in the sending of the string either some instruction conversion or actually sending the buffer contents


any suggestions please






Private Sub CommandButton2_Click()

'comm port set as specified by the user in excel
Comm2.CommPort = [d25]
'Settings as specified by Mikrokopter
Comm2.Settings = "57600,n,8,1"
Comm2.OutputMode = comOutputModeBinary
Comm2.Handshaking = comXOnXoff

' Output Buffer emptied
'Comm2.OutBufferSize = 0
'Port Opened
Comm2.PortOpen = True




End Sub

Private Sub Comm2_OnComm()

'output variables defined - strings for collection from excel, outs as byte arrays for outputting to the comm port
Dim string1 As String
Dim out1() As Byte
Dim string2 As String
Dim out2() As Byte
Dim out3() As Byte
Dim string3 As String
Dim string4 As String
Dim out4() As Byte
'Set out1() = CreateObject("ScriptUtils.ByteArray")


'looping variables defined
Dim x As Integer
Dim y As Integer

'check the port is opened
If Comm2.PortOpen = False Then
Comm2.PortOpen = True
End If

'y is the number of times function will loop - 1 set by the user in excel (repetitions
x = 0
y = [c23]

string2 = "#ad?]==D{"
'out2() = ToUTF82(string2)
out2() = StrConv(string2, vbFromUnicode)

Comm2.Output = out2()



Do


string1 = [af29]

'string1 = tlhAsciiToUtf8(string1)

out1() = StrConv(string1, vbFromUnicode)

'out1() = Encoding.utf8.getbytes(string1)

'out1() = Encoding.utf8


'String sent
Comm2.Output = "hello world"



'output string (ascii) displayed in control panel
Label2.Caption = string1

'loop incremented
x = x + 1

' Wait between sending instructions


'Loop specified number of times
Loop Until x > y

'shut comm port
Comm2.PortOpen = False

End Sub