vb类模块代码示例

Option Explicit
Public Function Add(ByVal a As Long, ByVal b As Long) As Long
    Add = a + b                 '反回值Add=a+b
End Function

窗体代码
Dim s As New Class1
Private Sub Command1_Click()
    MsgBox s.Add(10, 10)
End Sub 

vb类模块调用方法,我该如何调用? 
━━━━━━━━━━━━━━━━━━━━━━━━━

如我在模块中创建一个类模块class1,且内有一个函数.
下列完整代码:

类模块:
Option Explicit
Public Function xx()
    Dim s As String
    s = "test"
End Function

窗体:
Private Sub Command1_Click()
    Dim ss As Class1
    ss.xx  '这样调用出错,我该如何调用?
End Sub
━━━━━━━━━━━━━━━━━━━━━━━━━