Sub CommanButton1_Click()
    show_message(TextBox1.Value, "TexBox1")
End Sub
Function show_message(text as string, control_name as string)
    msgbox "В '" & control_name & "' записан текст: " & text,vbInformation
end function

Option Explicit
'указатель, что основную процедуру надо вызывать с определенной метки
Dim bGoto1 As Boolean
'основная процедура
Sub main()
    If bGoto1 Then
        GoTo Label1_
    End If
    Dim a, b
    MsgBox "Выполяем основной код до метки"
    b = 4
    a = b ^ 3
    MsgBox "b равна: " & b & ", a равна: " & a
Label1_:
    If bGoto1 Then 'только если код метки не должен выполняться без принудительного на неё перехода
        MsgBox "Label1_"
    End If
    bGoto1 = False
End Sub
'вызов процедуры начиная с нужной метки
Sub GotoLabel()
    bGoto1 = True
    main
End Sub