Dim CurMessage As String
Dim BodyMessage As String
Dim TitleMessage As String
Dim input2 As InputDialog
BodyMessage = "This message is long but will not be truncated. I needed to put more information in the box above the input prompt."
TitleMessage = "Choose a number"
input2.InputType = input2.INPUT_TYPE_NUMBERS
Dim sf As Object = input2.ShowAsync(BodyMessage, TitleMessage, "OK", "Cancel","",Null,False)
Wait For (sf) Dialog_Result(iResult As Int)
If iResult = DialogResponse.Positive Then
CurMessage = "The number entered was: " & input2.Input
Wait For (xui.MsgboxAsync(CurMessage, "Result")) Msgbox_Result (Result As Int)
End If