I believe this is the simplest isString function that will work:
isString
Function isString(testVar As Variant) As Boolean isString = (VarType(testVar) = vbString) End Function