sub LogInit{
  my $appname       = $_[0];
  my $module        = $_[1];
  my $apploglevel   = $_[2];
  $LogObj = Win32::OLE->new('LOGGERHELPER.UILogHelp');
  print "Ref is ", ref $LogObj, "\n";
  print Win32::OLE->LastError(), "\n" unless ($LogObj);
  $Log0bj->{LogLevel} = $apploglevel;
  $Log0bj->{AppName}  = $appname;
  $Log0bj->{Module}   = $module;
  Win32::MsgBox('my log is "'.$LogObj.'"');
  return $LogObj;