En vb 6.0 al crear el EXE word no se maximiza

En mi proyecto necesito abrí un documento word ya creado que está dentro de la carpeta proyecto, encontré en la red está sub :

Private Sub CMDABRIRWORD_Click()
On Error Resume Next
Dim wb As Object
Dim sPath As String
Set wb = CreateObject("Word.Basic")
sPath = App.Path
wb.ChDefaultDir sPath, 0 ' Si el doc está en el directorio de la aplicación
wb.FileOpen Name:=App.Path & "\HOJAS WORD\" & "Nº DE ORDEN " & Textorden.Text & ".RTF"

If Err.Number = 1078 Then
MsgBox " NO HAY HOJA ", , " HOJA WORD "
Exit Sub
End If
wb.AppShow
Application.WindowState = wdWindowStateMaximize
End Sub

Que funciona perfecto, pero cuando creo el EXE abre el documento pero no lo maximiza,

¿Dónde está el fallo?