This is the code I use:
Sub InputBox(Prompt As String, Title As String, Default As String, Hint As String) As String
Dim Id As InputDialog
Dim ret As Int
Id.Hint = Hint
Id.Input = Default
ret = Id.Show(Prompt, Title, "OK", "","CANCEL", Null)
If ret = -1 Then Return Id.Input Else Return ""
End Sub
Keeps it simple for me. But it stops the timer, trying to figure out how to make it not stop the timer.
the other problem is if i accidentally tilt the phone so it changes orientation, everything disappears. But I digress. Ill figure that out later.