Public Class Form1
 
    Dim s As String = "Lorem ipsum dolor sit amet, consetetur sadipscing elitr," & _
      "sed diam nonumy eirmod tempor " & _
                       "invidunt ut labore et dolore magna aliquyam erat," & _
                       "Bemerkung: sed diam voluptua. At vero " & _
                       "eos et accusam et justo duo dolores et ea rebum. Stet" & _
                       "clita kasd gubergren, no sea takimata sanctus est Lorem" & _
                       "ipsum dolor sit amet."
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        Me.Text = s.Split("Bemerkung:")(1).Substring("Bemerkung:".Length)
    End Sub
End Class