Word VisualBasic Script

Sub GetWordVersion()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    MsgBox WordApp.Version
    WordApp.Visible = True    
    WordApp.Quit
    Set WordApp = Nothing
End Sub