Prima di tutto la classe mi sembra incompleta, ovviamente non hai scritto il restante codice, come inserisce l'utente le variabili??

Inoltre il calcolo del tempo non mi sembra corretto.

codice:
  Dim data1 As Double = DateTime.Now.ToOADate - DateTime.Now.AddDays(-10).ToOADate
  Dim data2 As Double = (DateTime.Now - DateTime.Now.AddDays(-10)).TotalDays
Non danno lo stesso risultato!!
Ovviamente la differenza tra le due date è 10 gg ma data1 risulta essere 9,99 mentre data2 risulta essere correttamente 10.



Poi visto che ci siamo, per rendere il codice più leggibile, usa correttamente i nomi dei metodi e variabili. I primi si scrivono secondo le notazioni Pascal ovvero la prima lettera di ogni parola maiuscola. Quindi:

da

codice:
Public Sub calcolaPeriodo() ' calcolo la differenza fra date
        tempo = dataFinePeriodo.ToOADate - dataInizioPeriodo.ToOADate
    End Sub
a

codice:
Public Sub CalcolaPeriodo() ' calcolo la differenza fra date
        tempo = dataFinePeriodo.ToOADate - dataInizioPeriodo.ToOADate
    End Sub
Non usare le i singoli caratteri per le variabili, tranne ad esempio per i cicli For...Next
Quindi:

codice:
 s.calcolaPeriodo()
a

codice:
 MyInteressi.calcolaPeriodo()
Inoltre, anche se funziona correttamente, la MessagBox nella classe mi sembra un pò bruttina.! Forse meglio..

codice:
Public Function VediRisultatoInteressi() as string
        return interessi      
    End Sub