Dim sPath As String
Dim sFile As String
 
sPath = "Hier den Pfad eintragen"  ' mit abschließendem Backslash!
sFile = sPath & txtAngebotsnummer.Text & ".doc"
 
If Dir$(sFile) = "" Then
  MsgBox "Word-Datei nicht gefunden: " & vbCrLf & sFile
Else
  ShellExecute Me.hWnd, "open", sFile, "", "", 1
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de