Bug? Logcolor statement truncates strings

Sub ServerLog(AddLog As String)
    'save the daily log
    DateTime.DateFormat="yyyyMMdd"
   
    AddLog=DateTime.Date(DateTime.Now) & "-" & DateTime.Time(DateTime.Now) & " Server: " & AddLog &CRLF
    'LogColor(AddLog,Colors.Red)
    Log(AddLog)
    Dim DailyLog As String =DateTime.Date(DateTime.Now) &"_"& Main.LogFile
    Dim FileOut As OutputStream=File.OpenOutput(Main.WkDir,DailyLog,True)
    Dim Tw As TextWriter
    Tw.Initialize(FileOut)
    Tw.Write(AddLog)
    Tw.Close
       
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Dim AddLog As String =DateTime.Date(DateTime.Now) & "-" & DateTime.Time(DateTime.Now) & " Server: 2134234234234" &CRLF
  LogColor(AddLog,Colors.Red)
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
   
    Dim AddLog As String =DateTime.Date(DateTime.Now) & "-" & DateTime.Time(DateTime.Now) & " Server: 2134234234234" &CRLF & CRLF
      LogColor(AddLog,Colors.Red)
    AddLog="number with dots: " & "123.456.789.123.456.789" & CRLF & CRLF
    LogColor (AddLog,Colors.Red)
    AddLog =DateTime.Date(DateTime.Now) & "-" & DateTime.Time(DateTime.Now) & " Server: current ip: 151.61.236.114" &CRLF & CRLF
    LogColor (AddLog,Colors.Red)

   

End Sub