[미완] vbs try~catch

On Error Resume Next '=try
    Call Main()

If Err.Number <> 0 Then '=catch
    Call ErrorMessage()
Else
    ' 여기는 Error 발생 안했을대
End If

Sub ErrorMessage
    Dim strErrMsg
    strErrMsg = Err.Description
    Set strErrMsg = Nothing
    Err.Clear
End Sub