'version 1.0
'last modified = 2002/02/19

Function JG_VB_validObjCheck(theObj)
  On Error Resume Next
  If Not IsObject(CreateObject(theObj)) Then
    JG_VB_validObjCheck = false
  Else
    JG_VB_validObjCheck = true
  End If
End Function