OK so it should be
Code:
Dim s  As Long
or
Code:
Dim s As String
Thank you.