Dim txt As New StringBuilder
        Dim ShiftPressed As Boolean = False
        For Each taste As System.Windows.Input.KeyEventArgs In Buffer
 
            Select Case taste.Key
 
                Case Key.LeftShift
                    ShiftPressed = True
                    Exit Select
 
                Case Key.RightShift
                    ShiftPressed = True
                    Exit Select
 
                Case Key.A : If ShiftPressed Then : txt.Append("A") : Else : _
                  txt.Append("a") : ShiftPressed = False : End If : Exit Select
 
 
                Case Key.B : If ShiftPressed Then : txt.Append("B") : Else : _
                  txt.Append("b") : ShiftPressed = False : End If : Exit Select
 
 
                Case Key.C : If ShiftPressed Then : txt.Append("C") : Else : _
                  txt.Append("c") : ShiftPressed = False : End If : Exit Select
 
 
                Case Key.D : If ShiftPressed Then : txt.Append("D") : Else : _
                  txt.Append("d") : ShiftPressed = False : End If : Exit Select
 
 
....
 
 
 
            End Select
 
 
        Next
 
        Buffer.Clear()
 
        RaiseEvent ScannerInput(txt.ToString)

__________________________________________________________________________
Ein Programmierer ist eine Maschine die Koffein in Programmcode umwandelt!
Und Bier in Bug?s

May the source code be with you.