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