Obtener nombre de la base de datos

Public Function obtener_base_de_datos(ByVal conex As String) As String
        Dim data() As String = conex.Split(";")
        Return Array.Find(data, Function(x) x.ToString.Contains("Catalog")).Split("=")(1).Trim
    End Function