extraer dato entre paréntesis

dato(12345,5678)

Dim x() As String = dato.Split(New String() {"(", ")"}, StringSplitOptions.RemoveEmptyEntries)
R: 12345,5678

fuente