简单问题紧急求助！

[网络老男孩了]

写ASP可不可以象VB中一样可以直接从一个过程转到另一个过程。
象下面总是出错----
Private Sub init()
'定义变量
dim rightstring2,rightstring
dim name
dim use1,use2,use3,use4,use5,use6

use1=Request.Form ("1")
use2=Request.Form ("2")
use3=Request.Form ("3")
use4=Request.Form ("4")
use5=Request.Form ("5")
use6=Request.Form ("6")
'根据checkbox选择判断
Select Case Index
Case 0
If use1.value = 1 Then
changerightstring 1, "Y"
Elseif use1.value = 0 then
changerightstring 1, "N"
End If
Case 1
If use2.Value = 1 Then
changerightstring 2, "Y"
Else
changerightstring 2, "N"
End If
Case 2
If use3.Value = 1 Then
changerightstring 3, "Y"
Elseif use3.value = 0 then
changerightstring 3, "N"
End If
Case 3
If use4.Value = 1 Then
changerightstring 4, "Y"
Elseif use4.value = 0 then
changerightstring 4, "N"
End If
Case 4
If use5.Value = 1 Then
changerightstring 5, "Y"
Elseif use5.value = 0 then
changerightstring 5, "N"
End If
Case 5
If use6.Value = 1 Then
changerightstring 6, "Y"
Elseif use6.value = 0 then
changerightstring 6, "N"
End If
End Select
end sub
Private Sub changerightstring(NO As String, yn As String)-----到这一句出错
HELP ME

[ChinaOk]

Private Sub changerightstring(NO,yn)

不用设置类型了。

[网络老男孩了]

5555555

[ChinaOk]

use1.value = 1
有这样访问的吗？不对。
use1=1就可以了。

[ChinaOk]

use1.value = 1
有这样访问的吗？不对。
use1=1就可以了。

[ChinaOk]

use1.value = 1
有这样访问的吗？不对。
use1=1就可以了。

[cmsoft]

Private Sub changerightstring(NO As String, yn As String)-----到这一句出错
VS 不能这样定义参变量
应该这样：
Private Sub changerightstring(tag)

[cmsoft]

VB与VS有很多差别的

[ChinaOk]

cmsoft(韦小宝是我的老乡)

Private Sub changerightstring(tag)
这是什么？

[spgoal]

Private Sub changerightstring(NO As String, yn As String)--->Sub changerightstring(NO, yn)