Dim birthDay As Integer = birthMonth
birthDay = birthDay + 18
birthDay = birthDay * 25
birthDay = birthDay - 333
birthDay = birthDay * 8
birthDay = birthDay - 554
birthDay = birthDay / 2
birthDay = birthDay + 12
birthDay = birthDay * 5
birthDay = birthDay + 692
birthDay = birthDay * 20
birthDay = birthDay + Integer.Parse(birthYear.ToString.Substring(2, 2))
birthDay = birthDay - 32940
birthDay = Integer.Parse(birthDay.ToString.Substring(0, 2))
Dim birthDate As String = String.Format("{0} {1} {2}", birthDay, birthMonth, birthYear)