Function Call Help

Good Afternoon,

I am trying to call a function based on a conditional statement. If True the script is supposed to run a file that coincides with the correct function. So far this is what I have and it only runs the first function even though the condition isn't true.

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")

ON ERROR RESUME NEXT

'VPN Check
If objFSO.FileExists("\\HP-NAS2\KACE\Mail_Script\2007\32Bit_Installer\OutlookConfig07.msi") then
 objShell.Popup "YOU ARE CURRENTLY ON VPN/SMITH AND NEPHEW NETWORK." & vbCrLf & "PRESS OK TO CONTINUE.", 60, "IT INFORMATION UPDATE", vbOKOnly

Else
 objShell.Popup "UNABLE TO MIGRATE OUTLOOK" & vbCrLf & "YOU ARE NOT ON THE VPN/SMITH AND NEPHEW NETWORK." & vbCrLf & VbCrLf & "PLEASE GET ON CISCO VPN OR IT REMOTE ACCESS(FULL) AND RUN THE ATTACHMENT AGAIN.", 60, "IT INFORMATION UPDATE", vbOKOnly
 Wscript.Quit
End If

'GPUpdate
WshShell.Run "%comspec% /c gpupdate /force"
WScript.Sleep(45000)

 Function Outlook2007_32()
  objShell.Popup "IT IS RECONFIGURING YOUR OUTLOOK TO WORK WITH THE SMITH AND NEPHEW EMAIL SYSTEM." & vbCrLf & vbCrLf & vbCrLf & "ANY .PST EMAIL ARCHIVES THAT WERE MADE WOULD NEED TO BE RE-IMPORTED TO YOUR NEW OUTLOOK PROFILE ONCE THIS HAS COMPLETED." & vbCrLf & vbCrLf & vbCrLf & "ALSO YOU WILL BE PROMPTED FOR A USERNAME AND PASSWORD. PLEASE ENTER YOUR SNCORP\USERNAME AND PASSWORD." & vbCrLf & vbCrLf & vbCrLf & "FOR MOBILE DEVICE EMAIL (IPHONE/IPAD), PLEASE FOLLOW THE INSTRUCTIONS PROVIDED IN A PREVIOUS COMMUNICATION", _
  60, "IT INFORMATION UPDATE", vbOKOnly

  Set WshShell = WScript.CreateObject("WScript.Shell")
  WScript.Echo "Running Outlook2007 32"
  WshShell.Run "msiexec.exe /i \\hp-nas2\KACE\Mail_Script\2007\32Bit_Installer\OutlookConfig07.msi /qr"
 End Function

 Function Outlook2007_64()
  objShell.Popup "IT IS RECONFIGURING YOUR OUTLOOK TO WORK WITH THE SMITH AND NEPHEW EMAIL SYSTEM." & vbCrLf & vbCrLf & vbCrLf & "ANY .PST EMAIL ARCHIVES THAT WERE MADE WOULD NEED TO BE RE-IMPORTED TO YOUR NEW OUTLOOK PROFILE ONCE THIS HAS COMPLETED." & vbCrLf & vbCrLf & vbCrLf & "ALSO YOU WILL BE PROMPTED FOR A USERNAME AND PASSWORD. PLEASE ENTER YOUR SNCORP\USERNAME AND PASSWORD." & vbCrLf & vbCrLf & vbCrLf & "FOR MOBILE DEVICE EMAIL (IPHONE/IPAD), PLEASE FOLLOW THE INSTRUCTIONS PROVIDED IN A PREVIOUS COMMUNICATION", _
  60, "IT INFORMATION UPDATE", vbOKOnly
 
 
  Set WshShell = WScript.CreateObject("WScript.Shell")
  WScript.Echo "Running Outlook2007 64"
  WshShell.Run "msiexec.exe /i \\hp-nas2\KACE\Mail_Script\2007\64Bit_Installer\OutlookConfig07.msi /qr"
 End Function

 Function Outlook2010_32()
  objShell.Popup "IT IS RECONFIGURING YOUR OUTLOOK TO WORK WITH THE SMITH AND NEPHEW EMAIL SYSTEM." & vbCrLf & vbCrLf & vbCrLf & "ANY .PST EMAIL ARCHIVES THAT WERE MADE WOULD NEED TO BE RE-IMPORTED TO YOUR NEW OUTLOOK PROFILE ONCE THIS HAS COMPLETED." & vbCrLf & vbCrLf & vbCrLf & "ALSO YOU WILL BE PROMPTED FOR A USERNAME AND PASSWORD. PLEASE ENTER YOUR SNCORP\USERNAME AND PASSWORD." & vbCrLf & vbCrLf & vbCrLf & "FOR MOBILE DEVICE EMAIL (IPHONE/IPAD), PLEASE FOLLOW THE INSTRUCTIONS PROVIDED IN A PREVIOUS COMMUNICATION", _
  60, "IT INFORMATION UPDATE", vbOKOnly
 
 
  Set WshShell = WScript.CreateObject("WScript.Shell")
  WScript.Echo "Running Outlook2010 32"
  WshShell.Run "msiexec.exe /i \\hp-nas2\KACE\Mail_Script\2010\32Bit_Installer\OutlookConfig10.msi /qr"
 End Function
 
 Function Outlook2010_64()
  objShell.Popup "IT IS RECONFIGURING YOUR OUTLOOK TO WORK WITH THE SMITH AND NEPHEW EMAIL SYSTEM." & vbCrLf & vbCrLf & vbCrLf & "ANY .PST EMAIL ARCHIVES THAT WERE MADE WOULD NEED TO BE RE-IMPORTED TO YOUR NEW OUTLOOK PROFILE ONCE THIS HAS COMPLETED." & vbCrLf & vbCrLf & vbCrLf & "ALSO YOU WILL BE PROMPTED FOR A USERNAME AND PASSWORD. PLEASE ENTER YOUR SNCORP\USERNAME AND PASSWORD." & vbCrLf & vbCrLf & vbCrLf & "FOR MOBILE DEVICE EMAIL (IPHONE/IPAD), PLEASE FOLLOW THE INSTRUCTIONS PROVIDED IN A PREVIOUS COMMUNICATION", _
  60, "IT INFORMATION UPDATE", vbOKOnly
 
 
  Set WshShell = WScript.CreateObject("WScript.Shell")
  WScript.Echo "Running Outlook2010 64"
  WshShell.Run "msiexec.exe /i \\hp-nas2\KACE\Mail_Script\2010\64Bit_Installer\OutlookConfig10.msi /qr"
 End Function

Do While objFSO.FileExists("\\HP-NAS2\KACE\Mail_Script\2007\32Bit_Installer\OutlookConfig07.msi")
 If objFSO.FileExists(("C:\Program Files\Microsoft Office\Office12\WINWORD.EXE") and not objFSO.FolderExists("C:\Program Files (x86)")) Then
  Call Outlook2007_32()
 ElseIf objFSO.FileExists("C:\Program Files (x86)\Microsoft Office\Office12\WINWORD.EXE") Then
  Call Outlook2007_64()
 ElseIf objFSO.FileExists(("C:\Program Files\Microsoft Office\Office14\WINWORD.EXE") and not objFSO.FolderExists("C:\Program Files (x86)")) Then
  Call Outlook2010_32()
 ElseIf objFSO.FileExists("C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE") Then
  Call Outlook2010_64()
 Else
  Wscript.Echo "I am having Trouble! -RoboCop2"
  Wscript.Quit
 End If
Loop

Christopher