Kod:
Sub Hesapla()
Dim Urfa As Integer, Antep As Integer, Yil As Byte
Urfa = 450
Antep = 850
Do While Urfa < Antep
Urfa = Urfa * 1.025
Antep = Antep * 1.013
Yil = Yil + 1
Loop
MsgBox "Urfa nüfüsu Antep nüfusunu " & Yil & " yıl sonra geçecektir.", vbInformation, "İşlem Sonucu"
End Sub