Imports System.Diagnostics
Namespace vbCity
  Public Module modFunctions
    Public Sub ExecuteApplication(pstrApplicationName As String)
      Dim udtProcess As Process = New Process
      udtProcess.Start(pstrApplicationName)
    End Sub
  End Module
End Namespace