GetInsKey

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _
Long

' Get the current state of the Insert key


Function GetInsertKey() As Boolean
GetInsertKey = GetKeyState(vbKeyInsert)
End Function