'********************************************************************

'*

'* Function IsString

'*

'*   Author: NetworkAdminKB.com

'*  Created: 2004-06-30

'* Modified: 2004-06-30

'*

'* Purpose: Checks if a variable is a string.

'*

'* Input:   anyVar   Any variable type.

'*

'* Output:  True or False

'*          True  = The variable is a string

'*          False = The variable is not a string

'*

'********************************************************************

Function IsString(anyVar)

  'Version 1.0 2004-06-30

  If VarType(anyVar) = 8 Then

    IsString = True

  Else

    IsString = False

  End If 'VarType(anyVar) = 8

End Function 'IsString

Article ID: 401, Created On: 9/25/2011, Modified: 9/25/2011