Sub mc_First

' Variables
Dim OraSession As Object
Dim OraDatabase As Object

' Open Database
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("database", "user / password",  0 &)

' Input Value of Parameters
    Range("E1").Select
    a = ActiveCell.Value
    Range("G1").Select
    b = ActiveCell.Value
    Range("E2").Select
    c = ActiveCell.Value

' Query    
sqlQuery = "BEGIN pr_Zvit('" & a & "','" & b & "','" & c & "'); COMMIT; END;"

' Execute
OraDatabase.ExecuteSQL (sqlQuery)

MsgBox ("Ok!!!")
    
    Range("A4").Select

' Clean    
Set EmpDynaset = Nothing
Set OraDatabase = Nothing
Set OraSession = Nothing

End Sub