Do While Gakky.Answer <> Yes If Gakky.Schedule = Busy Then Me.Wait = Day(1) ElseIf Gakky.Answer <> Yes Then Me.Feeling = Length(Gakky.Answer) * -10 For i = 0 to Length(Gakky.Answer) * 10 Me.Feeling = Me.Feeling + 1 Me.Everything.UpDate = True
Me.Wait = Day(1) Next i Me.Hair.UpDate = True Me.Beard = Nothing ElseIf IsNumeric(Gakky.Answer) = True Then MsgBox "まじめに回答してください。" ElseIf Gakky.Answer = Null Then Me.Hair = Nothing Application.Quit End If Loop