On Error Resume Next If Err.Number <> 0 Then Textbox1 += vbCrLf & "エラーが発生しました。 " & Err.Number & " " & Err.Description End If