Check computer internet connection status and display message box

I need to work out if a user is connected via wifi or ethernet cable when they run a code on a workbook.