non riesco a farmi restituire NULL dalla funzione

codice:
Public Function Controlla_Stringa(ByVal Campo As String) As String
    If Campo <> "" Then
           Campo = Replace(Campo, "?>", "")
           Campo = Replace(Campo, "|", "")
           Campo = Replace(Campo, "\", "")
           Campo = Replace(Campo, "\n", "")
           Campo = Replace(Campo, "<", "&lt;")
           Campo = Replace(Campo, ">", "&gt;")
           Campo = Replace(Campo, "'", "''")

           Dim Carattere, AsciiValue As String

           Carattere = Right(Campo, 1)
           AsciiValue = Asc(Carattere)
           If (AsciiValue <= 32 Or AsciiValue >= 161) Then
               '// se il codice ascii del carattere inserito è >=192 
               '//elimino il carattere inserito 
               Campo = Replace(Campo, Carattere, "")
            End If
    else
          return Null 
    End If
    Return Campo
End Function
la parte in neretto non me l'accetta