Attribute VB_Name = "Remaining_Laps_to_show_fp"
Attribute VB_Base = "0{6C4152F1-9A6E-4A4D-BA5C-0BA4D1759DF5}{091F284C-6A6D-4875-B60B-DC48EDE25755}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Private Sub TextBox1_Change()
If IsNumeric(Me.TextBox1.Value) = False Then
    MsgBox "Insert a valid integer, please"
    Else
    Range("BW14").FormulaR1C1 = Me.TextBox1.Value
    If IsNumeric(Range("BW19")) = False Then
        Label5.Caption = "Invalid Entry"
        Else
        Label5.Caption = Range("BW19").Value
        Label7.Caption = Range("I4").Text
    End If
End If
End Sub


Private Sub TextBox2_Change()
If IsNumeric(Me.TextBox2.Value) = False Then
    MsgBox "Insert a valid integer, please"
    Else
    Range("BW15").FormulaR1C1 = Me.TextBox2.Value
    If IsNumeric(Range("BW19")) = False Then
        Label5.Caption = "Invalid Entry"
        Else
        Label5.Caption = Range("BW19").Value
        Label7.Caption = Range("I4").Text
    End If
End If
End Sub

