Private Function WriteText(cText As String) As Long
    Dim n As Long
    n = FreeFile
    Open FileName For Append As #n
    WriteText = LOF(n)
    Print #n, cText & vbLf;
    Close #n
End Function

   Private Function WriteText(ByVal cText As String) As Long
 
        Dim fi As FileInfo
        fi = My.Computer.FileSystem.GetFileInfo("C:\Test\Test.pdf")
        WriteText = CLng(fi.Length)
 
        'das eigentliche schreiben per StreamWriter lasse ich hier mal weg, da 
        ' es nur um das LOF geht
 
    End Function