У меня такое ощущение, что я, возможно, совершенно неправильно понимаю ваш вопрос, но вы, кажется, спрашиваете о поле ввода, которое проверяет, соответствует ли ввод определенному шаблону ввода, а затем дает вам самый левый символ этого. Это сделает это.
While 1
Local $responce = InputBox('Offer Price', 'Input offer price in XX.XX format.')
If @error == 1 Then
MsgBox(0, 'Cancel Pressed', 'You pressed cancel exiting loop.')
ExitLoop
EndIf
If StringRegExp($responce, '\d{2}\.\d{2}') Then
MsgBox(0, 'Success', 'The input fit the pattern XX.XX and the left most character of it = ' & StringLeft($responce, 1))
ExitLoop
Else
MsgBox(0, 'Invalid Input', 'The input needs to be a number in XX.XX format.')
EndIf
WEnd