Vista - MsgBox "Hi", 6858

' To figure out what is/or is not the MsgBox "Hi", 6858
' Ehmm, 6858 ?, Okay - just run this little vbScript.
' Benny Pedersen, www.fineraw.com

dim sRet,iy,ix,i
Const bGetMsgBoxConstants= True

i= InputBox("input an integer less than " _
& 2*2^12, "?", 6858)

If cBool(InStr(i, "+")) Then i= Eval(i)
If i = "" or Not(CInt(i) < 2^13) Then wScript.quit
ix= i: iy= 2^12
While iy > 0
If ix and iy Then
sRet= sRet & "+" & iy & " "
End If
ix= ix -iy
iy= iy\2
WEnd

InputBox string(5,vbLf) & "Zero is " & Eval(sRet) -i _
& ", so i (" & i & "), is this:",, i & " = " & sRet

If bGetMsgBoxConstants Then
' Is not testing having
' both vbYesNo and vbYesNoCancel, etc.
sRet= replace(sRet, "+2 +1 ", "+3 ")
sRet= replace(sRet, "+3 +2 ", "+5 ")
sRet= replace(sRet, "+32 +16 ", "+48 ")
sRet= replace(sRet, "+512 +256 ", "+768 ")
Dim iz, s, arr:arr= Split(sRet, "+"): sRet= ""
s= "+4096 vbSystemModal " &_
"+768 vbDefaultButton4 " &_
"+512 vbDefaultButton3 " &_
"+256 vbDefaultButton2 " &_
"+64 vbInformation " &_
"+48 vbExclamation " &_
"+32 vbQuestion " &_
"+16 vbCritical " &_
"+5 vbRetryCancel " &_
"+4 vbYesNo " &_
"+3 vbYesNoCancel " &_
"+2 vbAbortRetryIgnore" &_
"+1 vbOKCancel"
For iz= 1 to UBound(arr)
arr(iz)= "+" & arr(iz)
i= InStr(s, arr(iz))
If i Then
sRet= sRet & arr(iz)
arr(iz)= arr(iz) & RTrim(Mid(s, i +6, 18)) & chr(32)
End If
Next
If Not(sRet = Empty) Then
MsgBox sRet & vbLf & Join(arr, vbLf), Eval(sRet), ""
Else MsgBox "OK", 4096, "Hmm "
End If
End If