Public 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
 
sub openfile()
  ShellExecute Application.hwnd, "Open", "C:\Dokumente und" & _
    "Einstellungen\guddy\Desktop\test.tfx", _
             vbNullString, vbNullString, vbNormalFocus
end sub