Function testfunc01(word) As Integer
Dim serchChar As String