>>662
Dim IniFile As String = ExePath+"\VBini.txt"
Dim FileNoLong As Long = Freefile()

Open IniFile For output As #FileNoLong

Dim strValue As ZString*5120
Dim strValuePtr As ZString ptr = @strValue
Dim StrLength As Long
Dim IErrorRetCodeLong As Long = GetPrivateProfileSectionNames(strValuePtr, StrLength, IniFile)

If IErrorRetCodeLong Then End

Dim count As Integer
Dim Zcount As Integer

While count < StrLength
Dim As String tmp = *strValuePtr
Dim As Integer length = Len(tmp) + 1
count += length
st += length
Zcount += 1
Print tmp
If Zcount > 1000 Then Exit While
Wend

分かりやすいように整形してみた
途中のIf分は、エラーコードを拾っているのなら、その判定が必要でしょ
Zcountの存在意味が分からないが、まあいいや