I have hacked a solution together to allow me to proceed below:
Private Sub btnRE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRE.Click
rtbIncomingATE.Text = ""
TmrNoDataAtPortATE.Enabled = True
Reply_Status = REPLY_ATE.NO_REPLY
Write_HyperTerm_Style("#RE" & Chr(13))
While (rtbIncomingATE.Text.Length < 5)
Application.DoEvents()
End While
Call btnBodge_Click(sender, e)
rtbIncomingATE.Text = ""
End Sub
And I had a separate click routine to get the data from it:
Public Sub btnBodge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBodge.Click
Dim StringReply, StringReplyA As String
StringReply = rtbIncomingATE.Text
StringReplyA = StringReply.Substring(0, 5)
txtREresponce.Text = StringReplyA
rtbIncomingATE.Clear()
End Sub
It's nasty but it gets me over a hump, at the moment that is the main thing!