con un control timer has esto en el evento load de tu formulario
Provate Sub Form_load()
ti = 0 ' Le das a la variable ti valor 0 , la variable debe ser global (atencion)
timer1.interval = 6000 ' aqui le estableces que el control timer hara X cosa cada 60000 milisegundos, osea 1 minuto.
End sub
Private Sub Timer1_Timer()
ti=ti + 1 'se le suma 1 cada un minuto
if ti= 5 then ' y tras 5 minutos ti sera igual a 5 :)
Cal Tu_funcion_es_llamada_aqui ' llamamso a tu funcion de aumentar 5 pesos
ti = 0 ' Reiniciamos el contador y asi de facil
End Sub