【求助了】等待用户回应后再继续下一阶段

程序大意
一个游戏，玩家和CPU轮流回合
CUP回合中，依次一动，随机发动一个技能（攻击玩家）
若玩家被击中，可以后退1步（移动按键开启），也可不移动
然后CPU结束回合
若没击中，直接结束回合
【各阶段代码已写好，就差衔接】
问：如何cpu发动技能后，等待玩家是否后退的回应后，再结束回合？
我有个构思：比如一个timer控件
全局变量jieduan As string
if (击中判定）then
jieduan=被击中
（玩家减血事件）
else jieduan=未击中
sub 移动键（包括选择不移动的“结束”键）
if jiduan=被击中 ‘区分是玩家回合正常移动还是被击中的移动
（玩家角色移动）
jieduan=玩家回合
（移动键关闭）
end sub
sub timer(启用间隔时间为1毫秒）
select case jieduan
case 被击中
（移动键开启）
case 未击中
jieduan=玩家回合
【以下还有阶段为玩家回合的各事件】
能理解吧。。。。。
大家还有其他什么更好的方法吗。。。太难的我可能不懂