Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function boolOnlyWhiteSpace(strIn As String) As Boolean
' If every character in s$ can be found in strWhiteSpace then return TRUE
boolOnlyWhiteSpace = True
Dim i As Integer
Dim strWhiteSpace  As String
strWhiteSpace = strGetWhiteSpace
i = 1
Do While i <= Len(strIn)
    If InStr(1, strWhiteSpace, Mid(strIn, i, 1)) Then
    Else
        boolOnlyWhiteSpace = False
        Exit Do
    End If
    i = i + 1
Loop
'boolOnlyWhiteSpace = OWS
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001

Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function boolOnlyWhiteSpace(strIn As String) As Boolean
' If every character in s$ can be found in strWhiteSpace then return TRUE
boolOnlyWhiteSpace = True
Dim i As Integer
Dim strWhiteSpace  As String
strWhiteSpace = strGetWhiteSpace
i = 1
Do While i <= Len(strIn)
    If InStr(1, strWhiteSpace, Mid(strIn, i, 1)) Then
    Else
        boolOnlyWhiteSpace = False
        Exit Do
    End If
    i = i + 1
Loop
'boolOnlyWhiteSpace = OWS
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001