datei bearbeiten ( Unicode)

Sub first_line()
Grundpfad = ActiveWorkbook.Path
Dim vntIn, strTmp As String
Dim zahler As Integer
vntIn = " Erste Zeile ersetzten "
Open Grundpfad & "\Message_" & Worksheets("einstellung").Range("B2").Value & ".ttx" For Input  _
As #1
Do While Not EOF(1)
Line Input #1, strTmp
n = n + 1
Select Case n
Case 1: vntIn = vntIn
Case Else: vntIn = vntIn & vbCrLf & strTmp
End Select
Loop
Close #1
Open Grundpfad & "\Message_" & Worksheets("einstellung").Range("B2").Value & ".ttx" For  _
Output As #1
Print #1, vntIn
Close #1
End Sub