Можно ли реализовать Goto из одной процедуры в другую?

dim a as integer
 
for i = 1 to n
b = 2*C
if b > 1000 then
goto i ' Именно i 
end if 
next i
1:

Sub a()
for i = 1 to n
b = 2*C
next i
Goto 1
end sub
 
Sub b()
''''
1:
''''
end sub

dim a(3) as integer
 
for a(1) = 1 to n
for a(2) = 1 to n
for a(3) = 1 to n
 
'Условие
 
next a(3)
next a(2)
next a(1)

dim a(3) as integer
for a(1) = 1 to n'А ЧЕМУ РАВНО N?
for a(2) = 1 to n'ВЫ ЖЕ УЖЕ ИСПОЛЬЗУЕТЕ ПЕРЕМЕННУЮ a В ПРЕДЫДУЩЕМ ЦИКЛЕ
for a(3) = 1 to n
'Условие
next a(3)
next a(2)
next a(1)

dim a as integer
for i = 1 to n
b = 2*C
if b > 1000 then
goto i ' Именно i 
end if 
next i
1:
 
2:
 
3:

for a(1) = 1 to n(1)' например 10
 
for a(2) = 1 to n(2)'
'1 Условие нет goto 1
'2 Условие нет goto 2
for a(3) = 1 to n(3)
'3 Условие нет goto 2
'4 Условие нет goto 3
 
'5 Условие нет goto 3
' сall Тратата 
 
3:
next a(3)
2:
next a(2)
1:
next a(1)

Dim MyNumber
MyNumber = Int(99.8)    ' Returns 99.
MyNumber = Fix(99.2)    ' Returns 99.
 
MyNumber = Int(-99.8)    ' Returns -100.
MyNumber = Fix(-99.8)    ' Returns -99.
 
MyNumber = Int(-99.2)    ' Returns -100.
MyNumber = Fix(-99.2)    ' Returns -99.

For i = 40 To 1 Step -1

for a1 = 1 to n1
 for a2 = 1 to n2
  if  Условие1 then
   for a3 = 1 to n3
     if Условие2 and Условие3 and Условие4 then 
      сall Тратата 
      exit for 
     end if 
   Next a3    
  end if
 Next a2
Next a1