[Visual Basic] Falsche Annuitätsberechnung?

Sub Annuitaet01()
 Dim Kreditbetrag As Double
 Dim Zinsfuß As Byte
 Dim Laufzeit As Double
 Dim Annuitaet As Double
 Dim auswahl As Double
 Dim auswahl2 As Double
 Dim q As Double
 
Do
 Kreditbetrag = InputBox("Betrag eingeben: ")
 Zinsfuß = InputBox("Zinsfuß eingeben: ")
 q = 1 + (Zinsfuß / 100)


 auswahl = MsgBox("Ist Ihnen die Annuität bekannt und möchten Sie die Laufzeit ausrechnen?", vbYesNo)
 
 If auswahl = vbYes Then
 Annuitaet = InputBox("Wie ist die Annuität: ")
 Laufzeit = Log(Annuitaet) - Log(Annuitaet - Kreditbetrag * (q - 1)) / Log(q)
 MsgBox ("Die Laufzeit [in Jahren] ist: ") & Laufzeit
 Else
 If auswahl = vbNo Then
 Laufzeit = InputBox("Bitte die Laufzeit [in Jahren] eingeben: ")
 Annuitaet = Kreditbetrag * q ^ Laufzeit * (q - 1) / (q ^ Laufzeit) - 1
 MsgBox ("Die Annuität ist: ") & Annuitaet
 End If
 End If
 
 auswahl2 = MsgBox("Möchten Sie einen weiteren Vorgang berechnen?", vbYesNo)
 If auswahl2 = vbYes Then
 Else
 If auswahl2 = vbNo Then
 Exit Do
 End If
 End If
Loop While auswahl2 = vbYes
 
 
End Sub