If sChar = ")" Then                                     ' Reset 
            ' Control Keys if closing round Bracket found
                If bRound Then
                    sChar = ""                                      ' No 
                    ' Character to be sent
                    bRep = True                                     ' Last 
                    ' Repetition; used for resetting of Control Keys
                    If SendKeyDebug Then Kdebug "before Reset Control Keys" & _
                      "ahead round Brackets; " & sChar
                    SendKeysEx bRep, sChar                          ' Reset 
                    ' Control Keys
                    If SendKeyDebug Then Kdebug "after Reset Control Keys ahead" & _
                      "round Brackets"
                    bRep = False
                    bRound = False
                Else
                    I = I + 1                                       ' Ignore 
                    ' and get next Character
                    sChar = Mid(sText, I, 1)
                End If
            End If
            If InStr("()[]}~+%^", sChar) = 0 Then                   ' Control 
            ' Characters as Output only allowed inside curly Brackets; treated 
            ' above, ignore here
                If SendKeyDebug Then Kdebug "before send single Character; " & _
                  sChar
                SendKeysEx bRep, sChar                              ' Send 
                ' single Character
                If SendKeyDebug Then Kdebug "after send single Character"
                If Not bRound And (bShift Or bAlt Or bCtrl) Then
                    If SendKeyDebug Then Kdebug "before reset Control Keys" & _
                      "after sending single Character; " & sChar
                    SendKeysEx True, ""                             ' Reset all 
                    ' Control Keys (for example in Case shifted single 
                    ' Character had been sent)
                    If SendKeyDebug Then Kdebug "after reset Control Keys after" & _
                      "sending single Character"
                End If
            ElseIf sChar = "{" Then                                 ' Handle in 
            ' next loop run
                I = I - 1
            End If
        End If
    Next
End Sub                                                             ' SendKeyStr
 
Sub SendKeysEx(bRep As Boolean, sString As String)
Dim VK As eVirtualKeyCode, VK_Special As eVirtualKeyCode, strChar As String
Dim J As Integer, VKStart As Integer, VKLen As Integer          ' Loop Counter, 
' Start and Length of Special Key
Dim bShiftS As Boolean                                          ' Flag for 
' single Capital Letter
Dim nScan As Long
Dim nExtended As Long
 
'   Send Control Key(s) if any
    If bShift And Not bShiftd Then
        keybd_event VK_SHIFT, 0, 0, 0
        bShiftd = True                                          ' Set 
        ' "pressed"-Flag
    End If
    If bCtrl And Not bCtrld Then
        keybd_event VK_CONTROL, 0, 0, 0
        bCtrld = True
    End If
    If bAlt And Not bAltd Then
        keybd_event VK_MENU, 0, 0, 0
        bAltd = True
    End If

Das muß doch irgendwie gehen!