" <td bgColor=""" & strPopUpTableColor & """><input maxLength=""50"" name=""Subject"" value=""" & Trim(ChkString(TxtSub,"edit")) & """ size=""40""></td>" & vbNewLine & _
And change the 50 to any value you wish up to 100, if you want to go higher than that, you're going to have to edit some tables in the database to allow for a longer subject.