Sub s1()

    Debug.Print "s1"

    '调用过程：无括号，加call提升可读性

    s2

    Call s2

End Sub

Sub s2()

    Debug.Print "s2"

End Sub

Function f1()

    Debug.Print "f1"

    f2

    Call f2

End Function

Function f2()

    Debug.Print "f2"

End Function

Function f1()

    Debug.Print "f1"

    strRet = f2("B")

    Debug.Print strRet

    strRet = f3("C")

    Debug.Print strRet

End Function

Function f2(inPara As String) As String

    '函数返回值用【函数名】表示

    f2 = "return f2 " & inPara

End Function

Function f3(inPara) '返回值、参数：加类型声明更安全，提升可读性

    f3 = "return f3 " & inPara

End Function