function cmdA(msg,title)
	Dim rs
	rs = MsgBox(msg,vbYesNo+vbCritical,title)
	If rs = 6 Then
		MsgBox "yes ¸¦ ¼±ÅÃÇß½À´Ï´Ù."
	ElseIf rs = 7 Then
		MsgBox "No ¸¦ ¼­ÅÃÇß½À´Ï´Ù."
	End If
	cmdA = rs
End Function

function cmdTF(msg,title)
	Dim rs
	rs = MsgBox(msg,vbYesNo+vbCritical,title)
	If rs = 6 Then
		cmdTF = true
	ElseIf rs = 7 Then
		cmdTF = False
	End If
End function