Try this event for the reed switch:
Shared Event ReedSwitchChanged()
'debounce interrupt
Thread.Sleep(100000)
Thread.ClearHardwareEvent()
If ReedSwitch = True Then
'magnet far from reed switch
LedRed = False
Else
'magnet close to reed switch
LedRed = True
End If
End Event