Do While Loop

Option Explicit
Sub test()

Dim hitung As Integer
hitung = 1
Do While hitung <= 5
MsgBox "Saya hitung ya " & hitung, vbOKOnly, "info"
hitung = hitung + 1
Loop
End Sub