Excel用VBAをLibreOffice用に書き換えたいのです。

[3060041]

エクセルからリブレに移行するにあたり、
エクセルで機能していたVBAコード：

Function BeepMe() As String
    Beep
    BeepMe = ""
End Function

を

Option VBASupport 1
REM  *****  BASIC  *****
Sub Main
    Function BeepMe() As String
        Beep
        BeepMe = ""
    End Function
    Sub Macro1
    End Sub

と書き換えました。
でもこれではエラーになってしまいます。
詳しい方、教えてください。

[koutarouwatanabe]

ビープ音を鳴らす処理を実行することにしますね

Option VBASupport 1
REM  *****  BASIC  *****
'Sub Main   この命令を閉じるEnd Sub が無いので ' でコメントアウトします
    Function BeepMe() As String
        Beep
        BeepMe = ""
    End Function
'   Sub Macro1       この命令も内容が記述されていないのでコメントアウトします
'   End Sub

EXCELからCalcへのマクロ移行については
ＪＡ福岡市が下記URLで公開しているマニュアル類が参考になると思います。

https://www.ja-fukuoka.or.jp/libre/

「ExceltoCalcマクロ移行マニュアル」pdfファイル