Do
Randomize
	dise1=Int(6*Rnd+1)
	dise2=Int(6*Rnd+1)
	wa=dise1+dise2
res=MsgBox ( "ダイス１＝" & dise1 & " ダイス２＝" & dise2 & vbCRlf & "結果＝" &  wa ,vbOKCancel)
Loop While res=vbOK