Sub DataToWord()

Dim varlist As String
Dim myString As String
Dim s As String
Dim i As Long

Open "c:\2\test.txt" For Input As # 1 

    i =  0 
    While Not EOF( 1 )
        Line Input # 1 , s
        If i =  0  Then
        varlist = s
        Else
         varlist = varlist & vbNewLine & s
        End If
        i = i +  1 
    Wend
    
Close # 1 

myString = StrConv(varlist, vbUnicode)

Open "c:\2\temp.txt" For Output As # 2     ' Open file for output.

Print # 2 , myString    ' Print text to file.

Close # 2 


With Selection
.Collapse Direction:=wdCollapseEnd
.Range.InsertDatabase _
SQLStatement:="SELECT M_1_, M_2_, M_3_, M_4_ FROM c:\2\temp.txt", _
DataSource:="c:\2\temp.txt"
End With
End Sub

Sub DataToWord()

Dim varlist As String
Dim myString As String
Dim s As String
Dim i As Long

Open "c:\2\test.txt" For Input As # 1 

    i =  0 
    While Not EOF( 1 )
        Line Input # 1 , s
        If i =  0  Then
        varlist = s
        Else
         varlist = varlist & vbNewLine & s
        End If
        i = i +  1 
    Wend
    
Close # 1 

myString = ToUTF8(varlist)

Open "c:\2\temp.txt" For Output As # 2     ' Open file for output.

Print # 2 , myString;    ' Print text to file.

Close # 2 


With Selection
.Collapse Direction:=wdCollapseEnd
.Range.InsertDatabase _
SQLStatement:="SELECT M_1_, M_2_, M_3_, M_4_ FROM c:\2\temp.txt", _
DataSource:="c:\2\temp.txt"
End With
End Sub


Public Function ToUTF8(Text As String) As String
Dim i As Long, IC As Long

IC = Len(Text)
For i =  1  To IC
  ToUTF8 = ToUTF8 & ConvertToUTF8(Mid$(Text, i,  1 ))
Next
End Function

Private Function ConvertToUTF8(Char As String) As String
If Char = "Ø" Then
  ConvertToUTF8 = Chr$( 208 ) & Chr$( 129 )
ElseIf Char = "ø" Then
  ConvertToUTF8 = Chr$( 209 ) & Chr$( 145 )
ElseIf (Asc(Char) >=  192  And Asc(Char) <=  223 ) Then
  ConvertToUTF8 = Chr$( 208 ) & Chr$(Asc(Char) -  48 )
ElseIf (Asc(Char) >=  224  And Asc(Char) <=  239 ) Then
  ConvertToUTF8 = Chr$( 208 ) & Chr$(Asc(Char) -  48 )
ElseIf (Asc(Char) >=  240  And Asc(Char) <=  255 ) Then
  ConvertToUTF8 = Chr$( 209 ) & Chr$(Asc(Char) -  112 )
Else
  ConvertToUTF8 = Char
End If
End Function