VB6 Code - Fungsi Untuk Menggenapkan/Membulatkan Bilangan

Dalam membuat sebuah software, seringkali kita membutuhkan fungsi untuk menggenapkan/membulatkan sebuah bilangan (misalnya dalam membuat software biling warnet dan sebagainya). Pertanyaannya, bagaimanakah cara membuat sebuah fungsi dengan algoritma yang baik, kokoh, bisa digunakan dengan segala macam aplikasi, tahan banting, hanya satu jajar kode saja dan tidak menghabiskan energi (karena tidak terlampau banyak mengetik dan berfikir). bahasanya kepanjangan ya, padahal maksudnya dengan kode yang efektif dan efisien).

Fungsi untuk menggenapkan bilangan

Private Function Genapkan(ByVal Number As Double, Optional Range = 10) As double
  Genapkan = (Round((Number / Range) + 0.49)) * Range
End Function

Contoh Fungsi untuk menggenapkan bilangan dalam sebuah aplikasi:

Private Sub Form_Load()
  MsgBox Genapkan(456565656, 10) 'ini untuk menggenapkan puluhan
  MsgBox Genapkan(456565656, 100) 'ini untuk menggenapkan ratusan
  MsgBox Genapkan(456565656, 1000) 'ini untuk menggenapkan ribuan
  MsgBox Genapkan(456565656, 10000) 'ini untuk menggenapkan puluhan ribu
  MsgBox Genapkan(456565656, 100000) 'ini untuk menggenapkan  ratusan ribu
  MsgBox Genapkan(456565656, 1000000) 'ini untuk menggenapkan jutaan
  MsgBox Genapkan(456565656, 10000000) 'ini untuk menggenapkan pulahan juta
  'dan seterusnya
End Sub