double

System.Double

System.Double myDouble; 
double myDouble; 

myDouble =2D;                             'Suffix  
System.Diagnostics.Debug.Print myDouble   '= 2.0  

myDouble =3.14E3;                         'Scientific notation   
System.Diagnostics.Debug.Print myDouble   '= 3140  

myDouble =-1.0/0.0;                       'Negative infinity  
System.Diagnostics.Debug.Print myDouble   '= -Infinity