Existe um método eficiente no VB para verificar se uma seqüência de caracteres pode ser convertida em um duplo?

Atualmente estou fazendo isso tentando converter a seqüência de caracteres em um duplo e, em seguida, ver se ele lança uma exceção. Mas isso parece estar atrasando meu aplicativo.

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