Какой тип данных существует для отображения с максимальной точностью?

Imports System.Numerics
Public Class Form3
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim rm As BigInteger = 0
        'Dim nroot As BigInteger = BigMath.nthRoot(BigInteger.Parse(Convert.ToString("2") & New String("0"c, 100)), 2, rm)
        'Dim nroot As BigInteger = BigMath.nthRoot(BigInteger.Parse(Convert.ToString("3") & New String("0"c, 100)), 2, rm)
        'Dim nroot As BigInteger = BigMath.nthRoot(BigInteger.Parse(Convert.ToString("10") & New String("0"c, 100)), 4, rm)
        Dim nroot As BigInteger = BigMath.nthRoot(BigInteger.Parse(Convert.ToString("2") & New String("0"c, 1000)), 2, rm)
        TextBox1.Text = nroot.ToString
    End Sub
End Class
Public Class BigMath
    Public Shared Function nthRoot(value As BigInteger, root As Integer, ByRef remainder As BigInteger) As BigInteger
        If root < 1 Then
            Throw New Exception("root must be greater than or equal to 1")
        End If
        If value < 0 Then
            Throw New Exception("value must be a positive integer")
        End If
        If value = 1 Then
            remainder = 0
            Return 1
        End If
        If value = 0 Then
            remainder = 0
            Return 0
        End If
        If root = 1 Then
            remainder = 0
            Return value
        End If
        Dim upperbound = value
        Dim lowerbound = BigInteger.Parse("0")
        While True
            Dim nval = (upperbound + lowerbound) / 2
            Dim tstsq = BigInteger.Pow(nval, root)
            If tstsq > value Then
                upperbound = nval
            End If
            If tstsq < value Then
                lowerbound = nval
            End If
            If tstsq = value Then
                lowerbound = nval
                Exit While
            End If
            If lowerbound = upperbound - 1 Then
                Exit While
            End If
        End While
        remainder = value - BigInteger.Pow(lowerbound, root)
        Return lowerbound
    End Function
End Class