Czy w VB istnieje skuteczna metoda sprawdzania, czy łańcuch można przekształcić w podwójny?

Obecnie robię to, próbując przekonwertować łańcuch na podwójny, a następnie sprawdzić, czy generuje wyjątek. Ale to wydaje się spowalniać moją aplikację.

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