Hi I cannot get this part of code to work?

Basically, TextBox4 divided by textBox2


Private Sub TextBox4_Change()


If Len(TextBox4.Text) = 4 Then

TextBox5.Value = Val(TextBox4.Value) / Val(TextBox2.Value)

End If