Convert to Double handling NULL

  Public Shared Function ConvertToDouble(ByVal value As Object) As Double
    Try
      If (value Is Nothing) OrElse (value Is DBNull.Value) Then
        Return 0
      Else
        Return Convert.ToDouble(value)
      End If
    Catch
      Return 0
    End Try
  End Function

  Public Shared Function ConvertToDouble(ByVal value As String) As Double
    Try
      If (value Is Nothing) OrElse (value Is DBNull.Value) Then
        Return 0
      Else
        Return Convert.ToDouble(value)
      End If
    Catch
      Return 0
    End Try
  End Function