Visual Basic - Recoger de una cadena de texto una palabra

Hola tengo la siguiente cadena:

Provider=SQLOLEDB.1;Password=HIDRA;Persist Security Info=True;User ID=USRHIDRA;Initial Catalog=DBCWPF00;Data Source=HIDRA-DESA

y quisier coger la palabra DBCWPF00

como lo haria

Gracias

Tienes muchas formas, puedes usar funciones de Strings:

Left(Mid(strConn,80+Len("Initial Catalog")+1),InStr(Mid(strConn,80+Len("Initial Catalog")+1),";")-1)

O bien partir el string con Split y separarlo en un vector por ";" y luego revisar cual es el valor de Initial Catalog.