vb6转换成vb.net 其中 gosub 。。。 return 语句不可用。请问，vb.net中要实现一样的效果怎么修改。
下面是部分代码
If Dir(w_IniFileNm) <> "" Then Kill w_IniFileNm
DoEvents
Call Sleep(3000)
GoSub SUB_IniOut1
For j = 1 To 10
GoSub SUB_FielNmGet
GoSub SUB_IniFileSet
ReDim w_JnlFL(0)
DoEvents
Next
GoSub SUB_IniOut2
FncJnlDateIdxWrite = "OK"
DoEvents
Call Sleep(2000)
Exit Function
*--------------------------------
SUB_IniOut1:
DoEvents
rcd = FncComIniWrite(w_IniFileNm, _
"MAKE_DATE_SECTION", _
"SAKUSEIBI", _
Format(Now, "YYYYMMDD") & Format(Now, "HHNNSS"))
If rcd <> 0 Then
W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)"
GoTo ERR_PROC
End If
w_DateFrom = W_From
rcd = FncComIniWrite(w_IniFileNm, _
"MAKE_DATE_SECTION", _
"YOKYU_HANI_FROM", _
w_DateFrom)
w_DateFrom = ""
If rcd <> 0 Then
W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)"
GoTo ERR_PROC
End If
w_DateTo = W_To
rcd = FncComIniWrite(w_IniFileNm, _
"MAKE_DATE_SECTION", _
"YOKYU_HANI_TO", _
w_DateTo)
w_DateTo = ""
If rcd <> 0 Then
W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)"
GoTo ERR_PROC
End If
rcd = FncComIniWrite(w_IniFileNm, _
"STORE_SECTION", _
"STORE_CD", _
W_TenCD)
If rcd <> 0 Then
W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)"
GoTo ERR_PROC
End If
rcd = FncComIniWrite(w_IniFileNm, _
"STORE_SECTION", _
"STORE_NM", _
W_TenName)
If rcd <> 0 Then
W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)"
GoTo ERR_PROC
End If
rcd = FncComIniWrite(w_IniFileNm, _
"MAKE_FILE_SECTION", _
"FILE_COUNT_ALL", _
W_FileSu) *このｾｸｼｮﾝが前方にくるように事前に作成しておく。
If rcd <> 0 Then
W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)"
GoTo ERR_PROC
End If
Return
SUB_IniOut2:
DoEvents
rcd = FncComIniWrite(w_IniFileNm, _
"EOF_SECTION", _
"END_TIME", _
Format(time, "hhnnss")) *このｾｸｼｮﾝが终端になるようにする。
If rcd <> 0 Then
W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)"
GoTo ERR_PROC
End If
rcd = FncComIniWrite(w_IniFileNm, _
"MAKE_DATE_SECTION", _
"SAKUSEI_HANI_FROM", _
Ini_DateFrom)
If rcd <> 0 Then
W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)"
GoTo ERR_PROC
End If
rcd = FncComIniWrite(w_IniFileNm, _
"MAKE_DATE_SECTION", _
"SAKUSEI_HANI_TO", _
Ini_DateTo)
If rcd <> 0 Then
W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)"
GoTo ERR_PROC
End If
rcd = FncComIniWrite(w_IniFileNm, _
"MAKE_FILE_SECTION", _
"FILE_COUNT_ALL", _
W_FileSu)
If rcd <> 0 Then
W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)"
GoTo ERR_PROC
End If
rcd = FncComIniWrite(w_IniFileNm, _
"MAKE_FILE_SECTION", _
"FILE_SIZE_ALL", _
W_BiteSu)
If rcd <> 0 Then
W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)"
GoTo ERR_PROC
End If
Return

把gosub改成goto

return可以啊

vb6有return ?

goto不行，goto进去方法后直接就跳出去了，就不回去了。gosub。。。return 是还会回到原来的代码。看来只能重新写成新的Function了。谢谢大家啦

vbnet可以用return，和c++用法相似。比如说6里面private function a（byval b as integer）返回要用a=x。当然net里也可以用同样的方法，但可以更简单，return x即可。