SOS TEXTBOX

Hola a todos:
Estoy usando un formulario en el cual ingreso por medio de un textbox
solo numeros y una vez ingresado lo envio a una celda de una hoja de
Excel, al momento estoy usando el siguiente codigo:

Private Sub TextBox26_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not Chr(KeyAscii) Like "[0-9]" Then KeyAscii = 0
Worksheets("reportes").Range("G40").Value = TextBox26.Value
End Sub

El cual funciona en el formulario ya que si ingreso por ejemplo
0915051353 visualizo en el formulario esa cantidad pero en la hoja de
excel solo me aparece 091505135 es decir como que la primera pulsacion
no me la reconoce ya que segun me han dicho el evento KEYPRESS toma la
primera pulsacion y no se como solucionarlo si me pueden ayudar
indicandome como hacerlo y donde hacerlo, gracias a todos.