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