>>665
>st += length
ミス
strValuePtr += 1

分かっていると思うけど、一応もう1つ指摘しておくよ

>Open IniFile For output As #FileNoLong
この部分は、ファイルオープンエラーが起こり得るから

If Open(IniFile, For Output, As #FileNoLong) Then
...
EndIf

ってな感じで、エラー処理挟むと良いね