Dim p As String = "\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3}"
Dim rgx = new System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Output.Show(Connections("test").ConnectionString)
Output.Show(rgx.Match(Connections("test").ConnectionString).Value )