Spanish Ejecucion paso a paso para depurar?

#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private TxF_ClteCodigo As TextField
    Private TxF_ClteDescripcion As TextField
    Private kvs As KeyValueStore
    Private largo As Int
    Private TxF_Costo As TextField
    Private TxF_Precio As TextField
    Private Fecha_Vta As DatePicker
    Fecha_Vta.DateFormat = "dd/MM/yyyy"
End Sub

Public Sub Initialize
    'kvs.Initialize(File.DirInternal, "datastore")  *** Ver cual es la sintaxis del kvs.initialize() ***
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.


Private Sub Btn_Finalizar_Click
    ExitApplication
End Sub

Private Sub Btn_Guardar_Click
    'Valida que el Codigo de product no esté en blanco
    If TxF_ClteCodigo.Text.Length = 0 Then
        xui.MsgboxAsync("El campo Codigo esta en blanco","Aviso")
        TxF_ClteCodigo.RequestFocus()
        Return
    End If

    'Rutina para rellenar el campo ClteCodigo:
    TxF_ClteCodigo.Text=Pad(TxF_ClteCodigo.Text,"0",6,False)

    'Valida que el Descripcion no esté en blanco
    If TxF_ClteDescripcion.Text.Length = 0 Then
        xui.MsgboxAsync("El campo Descripcion esta en blanco","Aviso")
        TxF_ClteDescripcion.RequestFocus()
        Return
    End If

    ' Determina si el Costo está en blanco o es menor o igual a cero
    If TxF_Costo.Text.Length = 0 Then
        xui.MsgboxAsync("El campo Costo esta en blanco","Aviso")
        TxF_Costo.RequestFocus()
        Return
    End If
    If IsNumber(TxF_Costo) Then
        Dim costo As Int = TxF_Costo.Text
        If costo <=0 Then
            xui.MsgboxAsync("El costo no puede ser cero o negativo","Aviso")
            TxF_Costo.RequestFocus()
            'Return
        End If
    End If
    Log("Llego aqui")
End Sub

Private Sub TxF_ClteCodigo_Action
    'Revisar si la linea 43 vendria aqui: TxF_ClteCodigo=Pad(TxF_ClteCodigo,"*",6,True)
End Sub

Sub Pad (Texto As String, Relleno As String, largo_aux As Int, Atras As Boolean) As String
    'Classic
    Private Str As String = ""
    Private FillStr As String
    If Relleno = "" Then Relleno = "0"
    For i=1 To largo_aux - Texto.Length
        FillStr = FillStr & Relleno.CharAt(0)
    Next
    If Atras Then
        Str = Texto & FillStr
    Else
        Str = FillStr & Texto
    End If
    Return Str
End Sub