PRODS006 Antes de aceptar en los datos adicionales

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Public Sub Main()
    Dim DatosAnterior
    Dim DatoNuevo
    Dim nPos

    nPos = clAt("%==%", Ambiente.Tag)
    DatoAnterior = Mid(Ambiente.Tag, 1, nPos - 1)
    DatoNuevo = Mid(Ambiente.Tag, nPos + 4)

    If Len( DatoNuevo ) > 1 Then
       If Val2(DatoNuevo) = 0 Then
          MsgBox "Es necesario un dato numérico", vbInformation
          CancelaProceso = True
       End If
    End if

End Sub