On Error Resume Next
　　Err.clear
　　'文1
　　If Err.Number <> 0 Then
　　　　'エラー処理1
　　End If

　　Err.clear
　　'文2
　　If Err.Number <> 0 Then
　　　　'エラー処理2
　　End If

On Error Goto 0

これだとtry〜catch風ではないよね。