Here is a sample code, modify of need be.

You need to use ADODB library.

Dim oRs As New ADODB.Recordset
Dim oCn As New ADODB.Connection
Dim oCm As New ADODB.Command
Dim oPrm As New ADODB.Parameter

With oPrm

        .Direction = adParamInputOutput
        .Size = 30
        .Type = adChar
        .Value = txtBox.Text
End With

 With oCm
        .ActiveConnection = oCn
        .CommandType = adCmdStoredProc
        .CommandText = "NameoftheStoredProcedure"
        .CommandTimeout = 300
        .Parameters.Append oPrm
 End With

Set oRs =oCm.Execute

HTH

Sukesh