We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Function CommandCode(PC As Long) Dim command As String Dim argPassedIn As String command = Worksheets("GUI").Cells(PC + 1, 2).Value argPassedIn = Worksheets("GUI").Cells(PC + 1, 3).Value If InStr(argPassedIn, ",") = False Then CallByName Me, command, VbMethod, argPassedIn If InStr(argPassedIn, ",") Then CallByName Me, command, VbMethod, Split(argPassedIn, ",") End Function Function MySend(ByVal data As String) If LCase(data) = "chr(13)" Then data = Chr(13) If LCase(data) = "chr(27)" Then data = Chr(27) wsTCP.SendData data End Function Function CheckWarning(word1 As String, word2 As String) 'Detect whether there is a warning. If there is, keep sending word2. Do While (InStr(sBuffer, word1) > 0) 'Gets out of loop when word1 no longer exists sBuffer = "" MySend word2 Call CheckBuffer Loop End Function
Join the community of 500,000 technology professionals and ask your questions.