[vba] sub of functie niet gedefinieerd

[Tom-my]

Vba script in office xp (ned)

code:

Private Function Specialkars(aStr As String)
  If Len(aStr) > 0 Then
    strFind = char(38)  'ampersand
    strReplace = "&"
    aStr = Replace(aStr, strFind, strReplace)
    
    strFind = char(34)  'dubbele quote
    strReplace = """
    aStr = Replace(aStr, strFind, strReplace)
    
    strFind = char(39)  'enkele quote
    strReplace = "'"
    aStr = Replace(aStr, strFind, strReplace)
    
    strFind = char(60)  ' <
    strReplace = "&lt;"
    aStr = Replace(aStr, strFind, strReplace)
    
    strFind = char(62)  ' >
    strReplace = "&gt;"
    aStr = Replace(aStr, strFind, strReplace)
    
    strFind = char(43)  ' +
    strReplace = "$#043;"
    aStr = Replace(aStr, strFind, strReplace)
    Specialkars = aString
   End If
End Function

Klein functietje om wat output te formatten wat in een html pagina komt. Alleen hij blijft steeds blerren dat mn eerste regel niet goed is, want de sub of functie is niet gedefinieerd. Beetje vaag toch? Staat toch helemaal goed zo . Heb al geprobeerd private ervoor te zetten/weg te halen, nix werkt .

[Tom-my]

%$%^%^ soz voor deze post, probleem gevonden

(char moet uiteraard chr zijn )

[whoami]

Dicht dan.