Good morning
I have a problem with this virtual keyboard connected to the network (TPS),
the problem is the following:
I insert (in the same line) x37.22 y22.
here comes the problem at the second point comes out and moves the cnc
Since it's not within my capabilities and skills, is there anyone who can correct it?
I thank anyone who can help me
Greetings

  Global value As String

'TPS 01.12.2017
'numerische Eingabe
Function NumericKeyboard(ByVal DRONum As Integer) As Double
   Dim title As String
   'value = GetOemDRO(DRONum)
   title = Header
   
   
   Begin Dialog UserDialog1 60,60, 195, 180, "Input:"  , .Enable
   
      PushButton 10, 10, 25, 25, "7", .but7
      PushButton 40, 10, 25, 25, "8", .but8
      PushButton 70, 10, 25, 25, "9", .but9

      PushButton 10, 40, 25, 25, "4", .but4
      PushButton 40, 40, 25, 25, "5", .but5
      PushButton 70, 40, 25, 25, "6", .but6
      
      PushButton 10, 70, 25, 25, "1", .but1
      PushButton 40, 70, 25, 25, "2", .but2
      PushButton 70, 70, 25, 25, "3", .but3

      PushButton 10, 100, 25, 25, ".", .butD
      PushButton 40, 100, 25, 25, "0", .but0
      PushButton 70, 100, 25, 25, "<-", .butB

      PushButton 100, 10, 25, 25, "X", .butX
      PushButton 100, 40, 25, 25, "Y", .butY
      PushButton 100, 70, 25, 25, "Z", .butZ
      PushButton 100, 100, 25, 25, "A", .butA

      PushButton 130, 10, 25, 25, "F", .butF
      PushButton 130, 40, 25, 25, "S", .butS
      PushButton 130, 70, 25, 25, "M", .butM
      PushButton 130, 100, 25, 25, "Sp", .butSp

      PushButton 160, 10, 25, 25, "G", .butG

      TextBox 10, 130, 175, 18, .FText
      PushButton 10, 155, 40, 21,"OK", .OK
      CancelButton 55, 155, 40, 21
   End Dialog


   Dim Dlg1 As UserDialog1

   'Dlg1.FText = CStr(value)
   Dlg1.FText = ""
   x = Dialog( Dlg1 )

   'NumericKeyboard = CDbl(Dlg1.FText)
   If x <> 0 Then
      'SetOEMDro(DRONum,CDbl(Dlg1.FText))
      Code Dlg1.FText
   End If      
End Function

Function Enable( ControlID$, Action%, SuppValue%)

   Select Case Action%
      Case 1
         
      Case 2 'Button wurde gerückt
         If ControlID$ = "but0" Then
            value = CStr(value) + "0"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "but1" Then
            value = CStr(value) + "1"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "but2" Then
            value = CStr(value) + "2"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "but3" Then
            value = CStr(value) + "3"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "but4" Then
            value = CStr(value) + "4"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "but5" Then
            value = CStr(value) + "5"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "but6" Then
            value = CStr(value) + "6"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "but7" Then
            value = CStr(value) + "7"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "but8" Then
            value = CStr(value) + "8"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "but9" Then
            value = CStr(value) + "9"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "butD" Then
            If InStr(1,value,".") = 0 Then
            value = CStr(value) + "."
            DlgText "FText", CStr(value)
            Enable =1
            End If
         End If
         If ControlID$ = "butB" Then
            value = Left(value,Len(value)-1)
            DlgText "FText", CStr(value)
            Enable =1
         End If

         If ControlID$ = "butX" Then
            value = CStr(value) + "X"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "butY" Then
            value = CStr(value) + "Y"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "butZ" Then
            value = CStr(value) + "Z"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "butA" Then
            value = CStr(value) + "A"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "butF" Then
            value = CStr(value) + "F"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "butS" Then
            value = CStr(value) + "S"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "butM" Then
            value = CStr(value) + "M"
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "butSp" Then
            value = CStr(value) + " "
            DlgText "FText", CStr(value)
            Enable =1
         End If
         If ControlID$ = "butG" Then
            value = CStr(value) + "G"
            DlgText "FText", CStr(value)
            Enable =1
         End If


         If ControlID$ = "OK" Then
            Enable = -1
         End If
      Case 3 'Text verändert
         'MsgBox Dlg1.FText   
      Case Else
   End Select
   
   'Wert zurückgeben
   If Enable = -1 Then
      Enable = value
   End If

End Function