Windows Live Writerより2

'テスト
Private Function test(arg As String) As String

    Dim fso As New FileSystemObject
    Set fso = Nothing

    test = arg

End Function