Склавиатуры вводятся 5 символов.подсчитать количество знаков препинания.в vba

Sub Z()
Dim s As String
Dim i As Integer
Dim n As Integer
For i = 1 To 5
s = InputBox("Введите строку")
If s = "." Or s = "," Or s = ";" Or s = ":" Then n = n + 1
Next i
MsgBox ("Знаков препинания: " & n)
End Sub