vb code

Private Sub SendWithScrollCrontrol_Click()
    Call AllOff ' set all off

    Dim ToSend As String
    '         123456781234567812345678123456781234567812345678
    'ToSend = "010101010101010101010101010101010101010101010101"
    'ToSend = "001100110011001100110011001100110011001100110011"
    'ToSend = "000111000111000111000111000111000111000111000111"
    ToSend = "000011110000111100001111000011110000111100001111"
    Dim ToSendLength As Integer
    ToSendLength = Len(ToSend)

    Dim PosInSendString As Integer
    PosInSendString = 1

    MsgBox (ToSend)
    MsgBox (ToSendLength)

    Do Until PosInSendString > ToSendLength ' keep going until we have sent all bits
        If ScrollLockOn = False Then 'PC has control

            ' change num value
            If Mid$(ToSend, PosInSendString, 1) = "0" Then
                Call NumOff_Click ' send 0
            Else
                Call NumOn_Click  ' send 1
            End If


            'MsgBox (PosInSendString)
            Let PosInSendString = PosInSendString + 1 ' add 1 to value of PosInSendString

            ' turn scroll lock on
            Call ScrollOn_Click ' teensy is now given control

        End If
        DoEvents 'hangs without this
    Loop

    Call AllOff ' set all off
    MsgBox ("finished")
End Sub