nakaPさん、はじめまして。回答ありがとうございます。

outputにしても結果は同じでした。
試行錯誤を繰り返していたらできてしまいました・・・。

質問をしたのにすみませんでした・・・。

こうなりました・・・。

        '戻り値を受け取るために実行する（"Return"の文字は何でもいい）
        command.Parameters.Add("Return", SqlDbType.Decimal)

        '戻り値の値を入れる
        command.Parameters("Return").Direction = ParameterDirection.ReturnValue

        'Connectionオブジェクトでコマンドを実行して、影響を受けた行の数を返す
        command.ExecuteNonQuery()

        '型変換して代入
        max = CType(command.Parameters("Return").Value, Decimal)