¿porque me marca error?

Que tal grupo, saben en el sig. codigo me marca error de libreria en
Right(Text1, 4) y en Trim(Scadena), este tipo de errores y otros me
empezaron a pasar despues de que baje el SP5, ¿alguno de ustedes saben si

hace falta instalar otro SP o bajar una nueva actualizacion de microsoft?,
utilizo VB 6.0 y CR8.5
tambien me marca error en Date al asignar a DTpicker1, ejemplo DTpicker1 > Date
antes me funcionaba correctamente, agradezco la ayuda, gracias y saludos.
PAZ EN EL MUNDO

'Separa datos a partir del primer espacio que encuentre
Private Sub SeparaDatos()
' Obtiene del usuario la cadena de búsqueda.
Search = " "
Where = InStr(Text1, Search) ' Busca la cadena en el texto.
Text1.SelStart = Where ' se establece el inicio de la selección y
N = Text1.SelStart
NCadena = Len(Text1) - N
PCadena = Left(Text1, N)
Scadena = Right(Text1, 4)
ValorT1 = PCadena
ValorT2 = Trim(Scadena)

End Sub

Que tal grupo, saben en el sig. codigo me marca error de libreria en
Right(Text1, 4) y en Trim(Scadena), este tipo de errores y otros me
empezaron a pasar despues de que baje el SP5, ¿alguno de ustedes saben si

hace falta instalar otro SP o bajar una nueva actualizacion de microsoft?,
utilizo VB 6.0 y CR8.5
tambien me marca error en Date al asignar a DTpicker1, ejemplo DTpicker1 > Date
antes me funcionaba correctamente, agradezco la ayuda, gracias y saludos.
PAZ EN EL MUNDO

'Separa datos a partir del primer espacio que encuentre
Private Sub SeparaDatos()
' Obtiene del usuario la cadena de búsqueda.
Search = " "
Where = InStr(Text1, Search) ' Busca la cadena en el texto.
Text1.SelStart = Where ' se establece el inicio de la selección y
N = Text1.SelStart
NCadena = Len(Text1) - N
PCadena = Left(Text1, N)
Scadena = Right(Text1, 4)
ValorT1 = PCadena
ValorT2 = Trim(Scadena)

End Sub