Android Question text after comma elimination issue

Sub clvJournals_ItemClick (Index As Int, Value As Object)
    Dim lst As List = splitter(Value,",")
    putDate(lst.Get(0))
    lblClvIndex.Text = Index
    Dim k As String = lst.Get(2)
    seeEntry($"${k.trim} ✎ "$)
End Sub

Private Sub clvJournals_ItemLongClick (Index As Int, Value As Object)
    seeEntry(Value)
    If options.Get(5) Then
        journal.RemoveAt(Index)
        displayList(journal,clvJournals,0)
    End If
End Sub

Sub seeEntry(txt As String)
    txtJournalEntry.Text = txt
End Sub

Private Sub cmdNewJournalEntry_Click
    lblClvIndex.Text = -1
    txtJournalEntry.Text = ""
    TT= DateTime.now
    cmdDatePicker.text = DateTime.Date(TT)
End Sub

private Sub cmdSaveJournalEntry_Click
    entry = Array As Object(TT, DateTime.Time(DateTime.now), txtJournalEntry.Text)

    addEntry(entry, journal, clvJournals, 0, lblClvIndex.Text)

    resetTT
End Sub

Sub addEntry(ent As List, lst As List, lv As CustomListView, dspIdx As Int, idxInList As Int)

    DateTime.DateFormat="E dd MMMM"

    If idxInList < 0 Then
        lst.Add(ent)
    Else
        lst.Set(idxInList,ent)
    End If
   
    displayList(lst,lv,dspIdx)

    saveAll  

End Sub

Sub addEntry(ent As List,  . . .,  . . .)

Type journalEntry(date as long, header as string, body as string, serialNum as int, etc as Boolean)

. . .

Sub processEntry(ent as journalEntry)

. . .

. . .