Wish chinese can not be contained(embodyed) in the name of sub

' 打印按钮
Sub BtnPrint_Click

End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    Func("储存")
    Func("删除")
    Func("打印")
End Sub

Sub Func (FunctionName As String)
    Select Case FunctionName
        Case "储存"
            BtnSave_Click
        Case "删除"
            BtnDelete_Click
        Case "打印"
            BtnPrint_Click
    End Select
End Sub

Private Sub BtnSave_Click
    Log("调用'储存'函数")
End Sub

Private Sub BtnPrint_Click
    Log("调用'打印'函数")
End Sub

Private Sub BtnDelete_Click
    Log("调用'删除'函数")
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("?")
     ✋("储存")
     ✋("删除")
     ✋("打印")
End Sub

Sub ✋(? As String)
    Select Case ?
        Case "储存"
            Btn?_Click
        Case "删除"
            Btn⌫_Click
        Case "打印"
            Btn?_Click
    End Select
End Sub

Private Sub Btn?_Click
    Log("调用'储存'函数")
End Sub

Private Sub Btn?_Click
    Log("调用'打印'函数")
End Sub

Private Sub Btn⌫_Click
    Log("调用'删除'函数")
End Sub

Dim 讯息 As String = $"调用'储存'函数"$
Log(讯息)