vb.netでのエラー 名前空間では有効ではないステートメントです

Question

前提・実現したいこと

vb.netでエクセルを出力するプログラムを作成しています。
ネット上のコードをコピーしてそのまま使っているのですが、エラーになります。
解決方法、考え方を教えていただきたいです。
なお、VBに関しては初めて扱う言語ですので、専門用語をあまり使わずに教えていただければと思います。
以上、よろしくお願い致します。

発生している問題・エラーメッセージ

4行目で

名前空間では有効ではないステートメントです

該当のソースコード

Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices

Protected Sub ExcelCreate()

    '定義
    Dim app As Excel.Application = Nothing
    Dim book As Excel.Workbook = Nothing
    Dim sheet As Excel.Worksheet = Nothing

    Try
        'シートの作成
        app = New Excel.Application()
        app.Workbooks.Add()
        book = app.Workbooks(1)
        sheet = CType(book.Worksheets(1), Excel.Worksheet)

        'シート名を設定する
        sheet.Name = "シート１"

        'セルに値をセットする（セル名で指定する場合）
        sheet.Range("A1").Value = "ABC"

        'セルに値をセットする（番号で指定する場合）
        sheet.Cells(2, 1) = "DEF"   '2行・1列目（A2セル）

        '保存する
        book.SaveAs("C:\sample.xlsx")

    Catch ex As Exception
        Throw ex

    Finally
        'オブジェクト解放
        app.Quit()
        Marshal.ReleaseComObject(sheet)
        Marshal.ReleaseComObject(book)
        Marshal.ReleaseComObject(app)

    End Try
End Sub

試したこと

エラーの意味が」良くわからないので試すことができません

補足情報（FW/ツールのバージョンなど）

vb2019でのエラーです

Comments

[kenshirou]

「ネット上のコードをコピーして」とのことですが、コピー元のサイトをご教示頂けますか。
どのような掲載内容かは分かりませんが、そのコードを活用するためには、ある程度のスキルが必要かも知れません。

[banianizm]

ありがとうございます。
自己解決できました。

Answer 1

SubやFunctionはモジュールの中やクラスの中等に記述しなければなりません。
Protectedとなっているのでクラス内での記述になるかと思いますが、そのコードのサイトには解説はなかったのでしょうか？

Comments

[banianizm]

ありがとうございます。
解説はありませんでした。
そうすると、クラスを作り、これらをクラスの中に入れればよいということですか？

[YAmaGNZ]

どのように実装するかについては貴方次第です。
分からないのであれば、Protecedにせずモジュール内に書くのがいいでしょう。

今後ここからどのような処理を作成されるのか分かりませんがMicrosoft.Office.Interop.Excelを使用する場合は解放漏れがあるとExcelのプロセスが残りますので注意してください。
ただエクセルファイルを作成したいだけなのであれば、他のライブラリを使用する方法のほうがいいかもしれません。