Betreff Zeile automatisch ausfüllen

Sub NeueMail()

    Dim olApp As Object
    
    Dim Projektnummer As String
    Dim Betreff As String
    Dim Projektname As String
    Dim Projektmail As String
    
        
    Projektnummer = InputBox("Bitte geben Sie die Projektnummer ein", "Projektnummer ?")
    If StrPtr(Projektnummer) = 0 Then Exit Sub
    
    Projektname = getProjektname(Val(Projektnummer))
    If Projektname = "" Then
        Projektname = InputBox("Bitte geben Sie den Projektname ein", "Projektname ?")
        If StrPtr(Projektname) = 0 Then Exit Sub
    End If
    
    Projektmail = getProjektmail(Val(Projektnummer))
        
    Betreff = InputBox("Bitte geben Sie den Betreff der Mail ein", "BETREFF der Mail ?")
    If StrPtr(Betreff) = 0 Then Exit Sub
    
    
    Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
        .Display
        .To = ""
        .CC = Projektmail
        .BCC = ""
        .Subject = "[BV-" & Projektnummer & "] " & Projektname & "; " & Betreff
    End With
    Set olApp = Nothing
    
End Sub

Private Function getProjektname(Projektnummer As Variant) As String
    Dim olApp As Object
    Dim WF As Object
    
    Const PFAD As String = "C:\Users\Documents\Projekte.csv"
    
    On Error Resume Next
    
    Set olApp = CreateObject("Excel.Application")
    With olApp
        Set WF = .WorksheetFunction
        With .Workbooks.Open(PFAD, 0, True)
            With .Worksheets("Projekte")
                getProjektname = WF.Index(.Columns(2), WF.Match(Projektnummer, .Columns(3), 0), 1)
            End With
            .Close False
        End With
        Set WF = Nothing
        .Quit
    End With
    Set olApp = Nothing
    
End Function

Private Function getProjektmail(Projektnummer As Variant) As String
    Dim olApp As Object
    Dim WF As Object
    
    Const PFAD As String = "C:\Users\Documents\Projekte.csv"
    
    On Error Resume Next
    
    Set olApp = CreateObject("Excel.Application")
    With olApp
        Set WF = .WorksheetFunction
        With .Workbooks.Open(PFAD, 0, True)
            With .Worksheets("Projekte")
                getProjektmail = WF.Index(.Columns(11), WF.Match(Projektnummer, .Columns(3), 0), 1)
            End With
            .Close False
        End With
        Set WF = Nothing
        .Quit
    End With
    Set olApp = Nothing
    
End Function