[BANano] Find the bug

private Sub Typing(e As BANanoEvent)
    e.PreventDefault
    'Try
        Select Case e.Key
        Case "Enter"
            Dim e As BANanoEvent
            BANano.CallSub(mback, $"${mName}_Send"$, Array(e))
        Case Else    
            Dim svalue As String = SenderMessage.GetValue
            Dim bStatus As Boolean = False
            If svalue.Length > 0 Then bStatus = True
            UserIsTyping = bStatus
            SDUIShared.SetVisible($"${mName}_typing"$, bStatus)
            BANano.CallSub(mback, $"${mName}_IsTyping"$, Array(bStatus))
        End Select    
    'Catch            'ignore
        'not sure why this raises an error
        'Log(LastException)
    'End Try        
End Sub