¿Existe un método eficiente en VB para verificar si una cadena se puede convertir a doble?

Actualmente estoy haciendo esto al tratar de convertir la cadena a un doble y luego ver si se produce una excepción. Pero esto parece estar desacelerando mi aplicación.

Try
    ' if number then format it.
    current = CDbl(x)
    current = Math.Round(current, d)
    Return current
Catch ex As System.InvalidCastException
    ' item is not a number, do not format... leave as a string
    Return x
End Try