ERROS APOS REINSTALACAO DO VB E FORMATACAO DO XP

Citação:

:
Após formatar meu note e mudar o XP SP2 para SP3, não consigo prosseguir meu projeto. Alguns erros:

1- Can[ô]t find project or library
A linha refere-se a:
Dim SH As New Shell [ô]reference to shell32.dll class

Entretanto, o arquivo shell32.dll está instalado

2- Can[ô]t find project or library
A linha refere-se a:
Private Function Between(ByVal Expressao As String, strBegin As String, strEnd As String, Optional lngStart As Long) As String
Static start As Long
Dim lngBegin As Long
Dim lngEnd As Long
On Error Resume Next
If start = 0 Then start = 1: lngEnd = 1
If lngStart > 0 Then start = lngStart: lngEnd = lngStart
lngBegin = InStr(start, Expressao, strBegin, vbTextCompare)
lngEnd = InStr(start, Expressao, strEnd, vbTextCompare)

Expressao = Mid(Expressao, lngBegin + Len(strBegin), lngBegin + Len(strBegin)) [ô]>>> O ERRO FAZ A LEITURA PARAR E SELECIONAR Mid
lngEnd = InStr(1, Expressao, strEnd, vbTextCompare)
Expressao = Left(Expressao, lngEnd - 1)
start = lngEnd
Expressao = Replace(Expressao, [Ô]<i>[Ô], [Ô][Ô], , , vbTextCompare)
Expressao = Replace(Expressao, [Ô]</i>[Ô], [Ô][Ô], , , vbTextCompare)
Between = Expressao
End Function


Parecem-me erros da mesma origem.
Agradecido,
Gardel