Use the simple Double.TryParse overload, but specify an invalid value
Imports System
Imports System.Globalization
Class Sample
Public Shared Sub Main()
Dim result As Boolean
Dim doubleVal As [Double]
result = [Double].TryParse("abc", doubleVal)
Console.WriteLine(doubleVal.ToString())
End Sub
End Class