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