請問如判斷buff的內容(編號：4522)

程式碼如下
Dim ret As Long
Dim buff As String
buff = String(255, 0)
ret = GetPrivateProfileString(SessionName, ItemName, DefaultValue, buff, 256, INIFileName)
我要怎麼知道buff有沒有傳回值呢?
我試過用if的條件判斷
for i=1 to len(buff)
if mid(buff,i,1) = 0 or mid(buff,i,1)="" or isempty(buff,i,1) or isnull(buff,i,1) then
　　　debug.print "A"
　 else
　　　debug.print "B"
　 end if
next
但是都是傳回B
請問高手如何判斷buff有值呢?