Fix VoltorbFlip ChooseBox bug

P3D/Dialogues/TextBox.vb

@@ -26,7 +26,7 @@
 
     Dim Entities() As Entity
 
-    Dim ResultFunction As ChooseBox.DoAnswer = Nothing
+    Public ResultFunction As ChooseBox.DoAnswer = Nothing
 
     Public Delegate Sub FollowUpDelegate()
     Public FollowUp As FollowUpDelegate = Nothing

P3D/Screens/VoltorbFlipScreen.vb

@@ -97,6 +97,8 @@ Namespace VoltorbFlip
             Me.MouseVisible = True
             Me.CanChat = Me.PreScreen.CanChat
             Me.CanBePaused = Me.PreScreen.CanBePaused
+            ChooseBox.readyForResult = False
+            TextBox.ResultFunction = Nothing
 
         End Sub