Помогите написать RegExp - VB

Формулировка задачи:

Всем доброго дня.
Помогите написать регулярное выражение для замены подстроки.
на входе строка коннекшена в которой надо заменить пароль.
вход
orabd = ""Data Source="" + ConfigurationManager.AppSettings.Get(""TNSName"").ToString() + "";Password=\""123444\"";User ID=test;"";
результат
orabd = ""Data Source="" + ConfigurationManager.AppSettings.Get(""TNSName"").ToString() + "";Password=\""testpas\"";User ID=test;"";

Sub ReplaceConnection
  Dim regEx, output,res,strTextFile,str

  str="orabd = ""Data Source="" + ConfigurationManager.AppSettings.Get(""TNSName"").ToString() + "";Password=\""123444\"";User ID=test;"";"  
  output="Password=\""testpas\"""

  ' Create regular expression.
  Set regEx = New RegExp
  regEx.Pattern = "[.*][Password=\""].*[\""][.*]"
  MsgBox(regEx.Pattern)
  regEx.IgnoreCase = True

  ' Make replacement.
  res = regEx.Replace(str, output)
  MsgBox(res)
End Sub

Заранее благодарен за помощь!!!

Решение задачи: «Помогите написать RegExp»

textual
                            Листинг программы 
                        
                            regEx.Pattern = "(;Password=\\"")[^\\]+"