Lines Matching refs:Then
47 If dl.HighValue = 0 Then
67 If Len(str) > 8 Then
106 If c.count = 0 Then
120 If c.count = 0 Then Exit Function
134 If AryIsEmpty(b) Then
197 If Not isHexChar(x, b) Then Exit Function
201 If strRet Then
233 If IsObject(value) Then
242 If IsObject(value) Then
254 If Len(hexValue) = 0 Then GoTo nope
255 If Len(hexValue) > 2 Then GoTo nope 'expecting hex char code like FF or 90
258 If Err.Number <> 0 Then GoTo nope 'invalid hex code
261 If Err.Number <> 0 Then GoTo nope 'shouldnt happen.. > 255 cant be with len() <=2 ?
289 If TypeName(bAryOrStrData) = "Byte()" Then
295 If startAt < 1 Then startAt = 1
296 If length < 1 Then length = -1
307 If Len(tt) = 1 Then tt = "0" & tt
312 If i > 1 And i Mod 16 = 0 Then
315 If hexOnly = 0 Then
324 If length <> -1 Then
326 If length = 0 Then Exit For
330 'if read length was not mod 16=0 then
332 If tmp <> Empty Then
333 If hexOnly = 0 Then
346 If hexOnly <> 0 Then
358 If Len(path) = 0 Then Exit Function
359 If Right(path, 1) = "\" Then Exit Function
360 If Dir(path, vbHidden Or vbNormal Or vbReadOnly Or vbSystem) <> "" Then FileExists = True
379 If Err.Number = 0 Then
