ghgzujgh

Module VBModule
 
    Sub Main()
        Console.WriteLine("Hello, world!")
        
                            Dim kundenanmerkung As String = "sfggggggggggggggffffffffffffffgggggggggggssssssssssssssssssssgfgggggggggggggggggggggggggggggggggggggggggggggggsssssssssssssssssssssssssssssssssssssss"
                    Dim kndan1 As String = ""
                    Dim kndan2 As String = ""
                    Dim kndan3 As String = ""
                    dim x as Integer = 0
                    kndan1 = kundenanmerkung.Substring(0, x)
                    If kundenanmerkung.Length > 60 Then
                        x = kundenanmerkung.Length - 60
                        kndan2 = kundenanmerkung.Substring(60, x)
                    End If
                    If kundenanmerkung.Length > 120 Then
                    x = x + kundenanmerkung.Length
                        kndan3 = kundenanmerkung.Substring(120, x)
                    End If 
        
        Console.WriteLine(kndan1)
        Console.WriteLine(kndan2)
        Console.WriteLine(kndan3)
        
    End Sub
  
End Module