Public Function SetDataIntoCell( _
   ByVal bstrItemId As String, _
   ByVal bstrItemRev As String, _
   ByVal bstrFileName As String, _
   ByVal bstrPropName As String, _
   ByVal bstrPropVal As String _
) As Long