Подсчитать количество знаков препинания в текстовом файле - VB

Формулировка задачи:

Текст считывается из файла

Private Sub Command1_Click()
 
Picture1.Cls
Open File1.Path + "\" + File1.FileName For Input As #1
Do While Not (EOF(1))
Input #1, Strtemp
Picture1.Print Strtemp
Loop
Close #1
End Sub

Как организовать подсчет знаков препинания? сколько мучаюсь ни как не получается

Решение задачи: «Подсчитать количество знаков препинания в текстовом файле»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim Strtemp As String, n As Long
  Open "c:\temp\Уфа.txt" For Input As #1
  Strtemp = Input(LOF(1), 1)
  Close #1
Debug.Print Strtemp
  With CreateObject("vbscript.regexp")
    .Global = True
    .ignorecase = True
    .Pattern = "[0-9a-zа-яё\s]+"
Debug.Print ">>" & .Replace(Strtemp, "") & "<<"
    n = Len(.Replace(Strtemp, ""))
Debug.Print "Знаков препинания: " & n
  End With
End Sub
                        