Private Sub Text1_Change()
    Randomize Timer
    Text1 = Int(Rnd * 10) + 1
    Text2 = InputBox("Mikä kertotaulu?", , "5")
    oikein = 0
    vaarin = 0

End Sub