Private Sub TxtBox1_LostFocus(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles _
TxtBox1.LostFocus, TxtBox2.LostFocus, TxtBox3.LostFocus, TxtBox4.LostFocus, _
TxtBox5.LostFocus
 
        If sender.Text <> "" Then
            sender.Text = FormatNumber(sender.Text)
            Ki1 = CSng(sender.Text)
        End If
 
End Sub