Private Sub Form_Load()
Dim födelsedag As String
födelsedag = InputBox("DIN FÖDELSEDAG?(ex. 1943-12-12)", "RÄKNAREN")
MsgBox "Du är :" & DateDiff("m", födelsedag, Date) & " månader gammal"
MsgBox "Du är :" & DateDiff("w", födelsedag, Date) & " veckor gammal"
MsgBox "Du är :" & DateDiff("d", födelsedag, Date) & " dagar gammal"
MsgBox "Du är :" & DateDiff("n", födelsedag, Date) & " minuter gammal"
MsgBox "Du är :" & DateDiff("s", födelsedag, Date) & " sekunder gammal"
MsgBox "jag antar att du föddes kl. 00:00 på din födelsedag =)"
End Sub