Código
Option Explicit Private Declare Function MessageBoxA Lib "USER32" (ByVal hWnd As Long, ByRef lpText As Currency, ByRef lpCaption As Currency, ByVal uType As Long) As Long Sub Main() Call MessageBoxA(0, 2825458156505.531@, 52575472.1606@, 0) End Sub
Hahahaha... Muy bueno...!