This can be done with VB's shell command. See the example below.

Code: VB
Dim str, str1 As String
  str = Chr(34) & "c:\Program Files\Microsoft Office\office\Winword.exe" & Chr(34)
  str1 = Chr(34) & "D:\tyty.doc" & Chr(34)
  Dim id As Double
  MsgBox str
  MsgBox str1
   Shell str & " " & str1, vbNormalFocus