Openning Word And Excel To Show Default Docs

I'm using this code which I think Came from a Button Wizard many moons ago but when I use it It opens the app for the function but does not display the default Blank Doc.

Could anybody point me in the right direction for getting them to show the default blank Docs

Many Thanks

Mick

Private Sub CmdRunWord_Click()
On Error GoTo Err_CmdRunWord_Click

Dim oApp As Object

Set oApp = CreateObject("Word.Application")
oApp.Visible = True
oApp.Caption = "Database Dreams - Word"
Exit_CmdRunWord_Click:
Exit Sub

Err_CmdRunWord_Click:
MsgBox Err.Description
Resume Exit_CmdRunWord_Click

End Sub
Private Sub CmdRunExcel_Click()
On Error GoTo Err_CmdRunExcel_Click

Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
oApp.Caption = "Database Dreams - Excel"

Exit_CmdRunExcel_Click:
Exit Sub

Err_CmdRunExcel_Click:
MsgBox Err.Description
Resume Exit_CmdRunExcel_Click

End Sub