Excel VisualBasic Script

Sub mate()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application.8")
End Sub