QTP: Error Handling

I added Error handling to DataTable.Import and I would like to show you the result.

Function ImportDataTable(sheetpath)
Dim errorNumber, errorMessage

' Import Data Table
On Error Resume Next
DataTable.Import(sheetpath)
errorNumber = Err.number
On Error GoTo 0

' Error handling
If errorNumber <> 0 Then
errorMessage = "Could not load file. Did you supply a correct path?"
msgbox errorMessage & " Test will Exit"
Reporter.ReportEvent micFail, "Test Stopped", errorMessage
ExitTest
End If

End Function