Word - Caricare un intero documento su una TextBax

' Carica un DOC passato per path in una textbox aggiungengo o rimpiazzando il testo presente

Private Sub CaricaDoc2Textbox(ByVal sFilePath As String, ByRef txtTextbox As TextBox, ByVal bAppend As Boolean)
On Error Resume Next
Dim i As Long
Dim oWord As Word.Application
Set oWord = New Word.Application

oWord.Documents.Open sFilePath, , True
oWord.Visible = False
oWord.Documents("sfilepath").Activate

If bAppend Then
For i = 0 To oWord.ActiveDocument.Characters.Count
txtTextbox.Text = txtTextbox.Text & oWord.ActiveDocument.Characters(i)
Next
Else
For i = 0 To oWord.ActiveDocument.Characters.Count
txtTextbox.Text = txtTextbox.Text & oWord.ActiveDocument.Characters(i)
Next
End If
End Sub