Dim Skill As Double, TryToLearn As String
Dim Delay As Integer, StartDate As Integer
Const Language$ = "Farsi" ' (Persian)
StartDate = Year(Now)
Skill = 30 ' Please enter a real number!
If Language$ = "Farsi" Then
TryToLearn = "English" ' Germany
Do
Delay = Year(Now)
Do
DoEvents ' Do your life, do not hang!
Loop While Delay < Year(Now) + 1
Skill = Skill + CDbl(0.000001)
Loop While Skill <= 100
If Year(Now) - StartDate <= 30 + Int(5 * Rnd) Then
MsgBox "Cool! Now you can try learning " & TryToLearn & "!", vbInformation + vbOKOnly
Else
MsgBox "RIP!", vbExclamation
End If
End If
