Time Machine

[Oliver1]

I wish to build a time machine.
I am in the process of compiling a list of required parts, which I hope to then purchase from my local supermarket.

1. Flux Capaciter
2. Space ship capable of travaling faster than light
3. Worm hole
4. Black Hole
5. The sands of time
6. An old blue police phone box

I have also started on the operating system for my time machine, as follows

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim gobackintime As Boolean
 
        Do While gobackintime = True
            ' not sure what should go here
        Loop
    End Sub

Any help would be appreciated.