Imports System
Public Class Test
Public Shared Sub Main()
Dim decCost As Decimal
Dim intNumber As Integer
If Integer.TryParse("5", intNumber) AND Decimal.TryParse("1.99", decCost) Then
Console.WriteLine(decCost * intNumber)
End If
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CiAgICBQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKICAgICAgIERpbSBkZWNDb3N0IEFzIERlY2ltYWwKICAgICAgIERpbSBpbnROdW1iZXIgQXMgSW50ZWdlcgogICAgICAgSWYgSW50ZWdlci5UcnlQYXJzZSgiNSIsIGludE51bWJlcikgQU5EIERlY2ltYWwuVHJ5UGFyc2UoIjEuOTkiLCBkZWNDb3N0KSBUaGVuCiAgICAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoZGVjQ29zdCAqIGludE51bWJlcikKICAgICAgIEVuZCBJZgoJRW5kIFN1YgpFbmQgQ2xhc3M=