Public Shared Function SetWhen(ByVal key As String, ByVal txtdate As String) As _
  String
    Dim date As DateTime
    Dim valid_date As Boolean = DateTime.TryParse(txtdate, date)
    
    If valid_date = True Then
        When.Remove(key)
        When.Add(key, date)
        
        Dim left As TimeSpan = date.Subtract(DateTime.Now)
        Dim timeleft As String = "left"
        If left.TotalDays < 0 Then
            timeleft = "ago"
            left = left.Negate()
        End If
        
        Return String.Format("{0} weeks, {1} days, {2:00}:{3:00}:{4:00} hrs" & _
  "{5}", left.Days / 7, left.Days Mod 7, left.Hours, left.Minutes, _
  left.Seconds, _
        	timeleft)
    Else
        Return "ERROR: Invalid date."
    End If
End Function

---
Woher soll ich wissen, was ich denke, bevor ich h?re, was ich sage?