Исправить ошибки в коде - VB

Private Sub cmdCalculate_Click()
    Dim Principal As Currency
    Dim InterestRate As Double
    Dim InterestEarned As Currency
    Dim FutureValue As Currency
    Dim RatePerPeriod As Double
    Dim NumberOfPeriods As Integer
    Dim CompoundType As Integer
    Dim i As Double
    Dim n As Integer
    
    Principal = CCur(txtPrincipal.Text)
    InterestRate = CDbl(10.65) / 100 ' InterestRate = CDbl(txtInterestRate.Text) nado vsegda vvodit cifri ina4e ne rabotaet'    
    If optMonthly.Value = True Then
        CompoundType = 12
    ElseIf optQuarterly.Value = True Then
        CompoundType = 4
    ElseIf optSemiannually.Value = True Then
        CompoundType = 2
    Else
        CompoundType = 1
    End If
    
    NumberOfPeriods = CInt(3) 'Toje samoe'
    i = InterestRate / CompoundType
    n = CompoundType * NumberOfPeriods
    RatePerPeriod = InterestRate / NumberOfPeriods
    FutureValue = Principal * ((1 + i) ^ n)
    InterestEarned = FutureValue - Principal
    
    txtInterestEarned.Text = FormatCurrency(InterestEarned)
    txtAmountEarned.Text = FormatCurrency(FutureValue)
End Sub