Erro codigo VB6 x WINDOWS SEVEN

Boa tarde colegas...

Tenho um sistema no VB6, que roda perfeitamente no windows XP,98... recentemente precisei instalar num micro com o WINDOWS SEVEN... esta ocorrendo um erro num campo DATA, nesse campo eu tenho esse codigo para jogar as barras... como nunca deu erro, nao mudei para "MaskEdBox1"... uso o codigo abaixo:

------------------------------------------------------------------------------

   Select Case KeyAscii
         Case 8, 48 To 57 ' BackSpace e numericos
               If Len(Text8.Text) = 2 Or Len(Text8.Text) = 5 Then
               Text8.Text = Text8.Text & "/"
               SendKeys "{End}", True
               End If
         Case Else ' o resto é travado
               KeyAscii = 0
   End Select
-----------------------------------------------------------------

alguem ja teve esse problema com esse codigo no windows seven, ou sabe algo para resolver e bloquear esse erro... e a data sair certa....

grato