[Resolvido] Empréstimo

Este programa foi criado no VB.Net 2008 no modo console , porém ao ser executado o mesmo não consegue encontar o caminho dos módulos oque pode estar acontecendo , o código parece estar enxuto:

'Payment.exe
' Valor do Empréstimo : 10.000
' Juros Anuais (Por Exemplo para 60% , Insira 60) : 60
' Total de Meses : 60
' Período de Pagamentos em Anos : 5 anos
' A 5% de Juros ao mês
'Valor Pago em 5 Anosl :

Module Payment
Private dblAnnualInterest As Double = 0
Private iYears As Integer = 0
Private dblLoAmount As Double = 0
Private dblMonthLyDeposit As Double = 0

Sub Main()
Dim dblResult As Double

'Armazena os valores informados
GetInputValues()

'Calcula
dblResult = CalculatePayment(dblLoAmount, _
dblAnnualInterest, _
iYears)
'Proceda a exibição do resultado
DisplayResults(dblResult)

End Sub

Private Function CalculatePayment(ByVal LoanAmount As Double, _
ByVal AnnualInterest As Double, _
ByVal Years As Integer) As Double
'Divida por 1200 para torna-lo um percentual mensal
Dim DblMonthlyInterest As Double = CDec(AnnualInterest / 1200)
Dim iMonths As Integer = Years * 12
Dim dblTemp As Double
Dim dblReturns As Double

'Precisaremos desse valor em alguns locais
dblTemp = CDec (((1 + DblMonthlyInterest ^ iMonths))
dblReturns = LoanAmount * _
(DblMonthlyInterest * dblTemp / (dblTemp - 1))
Return dblReturns
End Function

Private Sub GetInputValues()
Console.WriteLine()
dblLoAmount = CDec(GetValue("Loan Amount: "))
dblAnnualInterest = _
CDbl(GetValue("Annual Interest (e.g for 5%, enter 5): "))
iYears = CInt(GetValue("Years of loan: "))
Console.WriteLine()
End Sub

Private Function GetValue(ByVal Prompt As String) As String
Console.Write(Prompt)
Return Console.ReadLine

End Function

Private Sub DisplayResults(ByVal Result As Double)
Console.WriteLine()

Console.WriteLine("If you borrow {0:c}, ", dblLoAmount)
Console.WriteLine("at {0}% interest.", dblAnnualInterest)
Console.Writeline("for {0}Years", iYears)

Console.WriteLine()
console.WriteLine("Your monthly payment would be: {0:c}", Result)

End Sub

End Module