lblMesa.Text = "MESA: "
            Dim MesaPaso As String = CStr(Recibo.Mesa)
            Dim MesaTxt As String = ""
            If Mid(MesaPaso, Len(MesaPaso) - 1, 2) = ".0" Then
                MesaTxt = Mid(MesaPaso, 1, Len(MesaPaso) - 2)
                If MesaTxt = " " Then
                    MesaTxt = "0"
                End If
            Else
                MesaTxt = MesaPaso
            End If
            lblMesa.Text &= MesaTxt & ", PERSONAS: " & Recibo.Personas
            lblMesa2.Text = "MESERO: " & Personal.NombreCorto