diff --git a/login/ChangePW.aspx.vb b/login/ChangePW.aspx.vb
index c0035ec..e0a208f 100644
--- a/login/ChangePW.aspx.vb
+++ b/login/ChangePW.aspx.vb
@@ -95,7 +95,7 @@ Partial Class login_ChangePW
         Dim data() As Byte = Convert.FromBase64String(tokenname)
         Dim wenn As DateTime = DateTime.FromBinary(BitConverter.ToInt64(data, 0))
 
-        If wenn < DateTime.UtcNow.AddMinutes(-3) Then
+        If wenn < DateTime.UtcNow.AddMinutes(-30) Then
             Return False
             tokenname = ""
             MsgBox("Token nicht gefunden oder zu alt!" + Environment.NewLine + "Bitte erneut Mail senden!")