why does Label13.Caption does not show the value of num8 instantly . instead it shows the value after i enter in the 2nd number

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim num1 As Integer
Dim num2 As Integer
Dim num3 As Integer
Dim num4 As Integer
Dim num5 As Integer
Dim num6 As Integer
Dim num7 As Integer
Dim num8 As Integer
Dim lngNumber As Long


' convert string to Long variable
lngNumber = CLng(Val(Text1.Text))
' to multiple variables
num1 = lngNumber \ 10000000
num2 = (lngNumber \ 1000000) Mod 10
num3 = (lngNumber \ 100000) Mod 10
num4 = (lngNumber \ 10000) Mod 10
num5 = (lngNumber \ 1000) Mod 10
num6 = (lngNumber \ 100) Mod 10
num7 = (lngNumber \ 10) Mod 10
num8 = lngNumber Mod 10

Label13.Caption = num8

Select Case KeyAscii
Case vbKey0 To vbKey9, vbKeyBack
'do nothing, accept the keys
Case Else
Beep 'optional
KeyAscii = 0
End Select




End Sub