Hi Charles.
Expanding a bit from what Trent gave you:
'-- estabilish locals
Dim connString As String
Dim serverName As String
Dim parseConnString As New Data.SqlClient.SqlConnectionStringBuilder
'-- get the active connection string
connString = ConnectionManager.GetApplicationActiveConnectionString("MyApplicationKey", "")
'-- set the parser connection string
parseConnString.ConnectionString = connString
'-- get the server name from the parser
serverName = parseConnString.DataSource