[Bug 7894] run time error '6' overflow MSVBVM60.DLL

[Wine Bugs]

http://bugs.winehq.org/show_bug.cgi?id=7894

------- Additional Comments From [e-mail]  2007-30-03 19:46 -------
Thanks for your help. Sorry, wasn't sure the source code would be much help. 
I'll try to make it a command line test program in future. :-)

Option Explicit

Private Sub Command1_Click()
  Dim X As Integer
  X = CDec("&H58")
  Label1.Caption = Str(X)
End Sub

Private Sub Form_Load()
End Sub