[vb6]usare variabili con GOTO

[LMondi]

Non capisco a cosa possa servirti,
così sembra che funzioni:

Private Sub Command1_Click()
Dim strProva1 As String
Dim strProva2 As String
Dim Number
    Number = 1
 
If Number = 1 Then GoTo strProva1 Else GoTo strProva2

strProva1:
    MsgBox "Continuare ?"

strProva2:

End Sub