Abrir documentos word desde vb.net

[SinNombre]

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Dim lValDev As Long
lValDev = ShellExecute(Me.hwnd, "Open", "c:\texto.doc", _
"", "", 1)
End Sub