Sub InjectionSafe(input As String) As Boolean
If _
input.Contains(" ") _
OR input.Contains(";") _
OR input.Contains("'") _
OR input.Contains(Chr(0x0022)) _
OR input.Contains(Chr(0x0027)) _
OR input.Contains(Chr(0x00AB)) _
OR input.Contains(Chr(0x00BB)) _
OR input.Contains(Chr(0x2018)) _
OR input.Contains(Chr(0x2019)) _
OR input.Contains(Chr(0x201A)) _
OR input.Contains(Chr(0x201B)) _
OR input.Contains(Chr(0x201C)) _
OR input.Contains(Chr(0x201D)) _
OR input.Contains(Chr(0x201E)) _
OR input.Contains(Chr(0x201F)) _
OR input.Contains(Chr(0x2039)) _
OR input.Contains(Chr(0x203A)) _
OR input.Contains(Chr(0x300C)) _
OR input.Contains(Chr(0x300D)) _
OR input.Contains(Chr(0x300E)) _
OR input.Contains(Chr(0x300F)) _
OR input.Contains(Chr(0x301D)) _
OR input.Contains(Chr(0x301E)) _
OR input.Contains(Chr(0x301F)) _
OR input.Contains(Chr(0xFE41)) _
OR input.Contains(Chr(0xFE42)) _
OR input.Contains(Chr(0xFE43)) _
OR input.Contains(Chr(0xFE44)) _
OR input.Contains(Chr(0xFF02)) _
OR input.Contains(Chr(0xFF07)) _
OR input.Contains(Chr(0xFF62)) _
OR input.Contains(Chr(0xFF63)) _
Then
Return False
Else
Return True
End If
End Sub