Date Functions VisualBasic Script

Sub curr()
    Dim ccyPrice As Currency
    ccyPrice = 19.99
End Sub