Problem mit If Anweisung

Sub Registrierung2()
If Worksheets("User").Cells(8, 13) = "ja" Then ' Online registriert? ja/nein
Dauer2
Else
Wert = MsgBox("Ihre eMail-Adresse habe ich nicht gefunden." & vbLf & _
"Wenn Sie sich gerade neu registriert haben muss die Version noch  _
aktualisiert werden." & vbLf & _
"" & vbLf & _
"Haben Sie sich schon registriert?", vbYesNo)
If Wert = vbYes Then
Wert = MsgBox("Zur Aktualisierung ist eine Internetverbindugn  _
erforderlich." & vbLf & _
"Sind Sie damit einverstanden? Bitte mit ja bestätigen.",   _
_
vbYesNo)
If Wert = vbYes Then DatenOnlineAbrufen
ThisWorkbook.Save
Application.Quit
If Wert = vbNo Then NichtRegistriert
End If
End Sub