function unready_download(strApp)
	dim strMsg 
	strMsg = strApp & " はDOWNLOAD公開準備中です。しばらくお待ちください。" & vbnewline 
	strMsg = strMsg & "メイリングマガジンに参加するといち早く公開情報を入手できます。"

	msgbox strMsg ,vbinformation,"Very Series / Imim Products"
end function