状況がよくわかりませんが私の環境ではこんな感じで正常に動作します。
sdim TextBuf, 32000
mesbox TextBuf, 600, 400, 5
ID=stat
button gosub "保存", *TextSave
button gosub "読み込み", *TextLoad
button gosub "消去", *TextClear
stop
*TextSave
notesel TextBuf
dialog "txt", 17
if stat!1 :return
notesave refstr
noteunsel
return
*TextLoad
notesel TextBuf
dialog "txt", 16
if stat!1 :return
noteload refstr
objprm ID, TextBuf
noteunsel
return
*TextClear
TextBuf=""
objprm ID, TextBuf
return
質問する時のコツとしては
・何が出来て何が出来ないのかを伝える。
・状況を再現できる最低限のスクリプトを載せる。
・エラーの内容を伝える。
・使っているPCの環境を伝える(OS・HSPのバージョン等)
等を踏まえて質問すると問題の解決がしやすくなると思いますので
参考にしてみてください。