'Declaration
Function IsInputAllowedAtPos( _
ByVal As String, _
ByVal As Integer _
) As Boolean
'使用法
Dim instance As IManageFmtInput
Dim currText As String
Dim position As Integer
Dim value As Boolean
value = instance.IsInputAllowedAtPos(currText, position)