Cacher is the code snippet organizer for pro developers

Sub Sample()
    Dim buf As String
    On Error GoTo myError
    Open "C:\Sample.dat" For Input As #1
        Line Input #1, buf
        Range("A1") = buf
    Close #1
    Worksheets("Sheet2").Name = "合計"
    Exit Sub
ErrorHandler1:
    Select Case Err.Number
    Case 9
        MsgBox "シート名を変更できませんでした" & vbCrLf & Err.Description, vbExclamation
    Case 53
        MsgBox "ファイルを開けませんでした" & vbCrLf & Err.Description, vbExclamation
    Case Else
        MsgBox "予期せぬエラーが発生しました", vbExclamation
    End Select
End Sub