Dim Conn: Set Conn = CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=SQLOLEDB;Trusted_Connection=no;server=10.1.241.20;user id=alexk;password=kljkljlkj;DATABASE=_sbx;"

Set objCommandSec = CreateObject("ADODB.Command")

With objCommandSec
 Set .ActiveConnection = Conn
 .CommandType = 4
 .CommandText = "theStoredProc"
 .Parameters.Append .CreateParameter("@inVar1", 200, 1, 255, "ABC")
 .Parameters.Append .CreateParameter("@inVar2", 200, 1, 255, "DEF")
 .Parameters.Append .CreateParameter("@outVar1", 200, 2, 255)
 .Parameters.Append .CreateParameter("@outVar2", 200, 2, 255)

 .Execute

 msgbox .Parameters(2).Value & "/" & .Parameters(3).Value
End With

set objCommandSec = Nothing
Conn.Close: set Conn = Nothing