Here's another use of strGetWhiteSpace (and hence the INI routines).

<pre>Public Function boolOnlyWhiteSpace(strIN As String) As Boolean
' Procedure : boolOnlyWhiteSpace
' Description: test if a string is effectively devoid of data.
' Copyright: Chris Greaves Inc.
' Inputs: STRING being tested.
' Returns: TRUE if the string holds nothing but white space characters.
' Assumes: None.
' Side Effects: None.
' Tested: By the calls shown below.

boolOnlyWhiteSpace = True ' default result is TRUE
Dim i As Integer ' to count along the string
i = 1
Do While i <= Len(strIN)
If InStr(1, strgetWhiteSpace, Mid(strIN, i, 1)) Then
boolOnlyWhiteSpace = False
Exit Do
End If
i = i + 1
'Sub TESTboolOnlyWhiteSpace()
'MsgBox boolOnlyWhiteSpace("abc") 'FALSE
'MsgBox boolOnlyWhiteSpace("") ' TRUE
'MsgBox boolOnlyWhiteSpace(" ") ' TRUE
'MsgBox boolOnlyWhiteSpace("a bc") ' FALSE
'End Sub
End Function