Create procedure prc_getBal(@cid int,@bal money output)
As
Begin
Select @bal=bal from customers
where cid=@cid
End

Imports System.Data.SQLClient

public Class Form
Dim con as SQLConnection
Dim cmd as SQLCommand

Dim cid as integer=InputBox("Enter Cid")
con=new SQLConnection("user id=sa;password=123;database=")
cmd=new SQLCommand("prc_getBal")
cmd.CommandType=CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@cid",cid)
cmd.Parameters.AddWithValue("@bal",SQLDbType.Money).Direction=ParameterDirection.Output
con.open()
cmd.ExecuteNonQuery()
MessageBox.Show(cmd.Parameters("@bal").Value)
con.Close()