VB.NET Text Splitter

 If Me.RichTextBox1.Text = "" Then

            MessageBox.Show("No text for split", "Split", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
        Else
            Dim tempFolder As String
            tempFolder = Path.GetTempPath()
            If (Not System.IO.Directory.Exists(tempFolder & "\CrypterbyNZLeoGEN")) Then
                System.IO.Directory.CreateDirectory(tempFolder & "\CrypterbyNZLeoGEN")
            End If
            Dim s As String = "3" ' Quantidade para dividir
            Dim text As String = Me.RichTextBox1.Text
            Dim s2 As String = text.Length.ToString()
            Dim num As Integer = Integer.Parse(s2) / Integer.Parse(s)
            Dim num2 As Integer = 1
            For i As Integer = 0 To Integer.Parse(s)
                Dim contents As String = Strings.Mid(text, num2, num)
                File.WriteAllText(tempFolder & "\CrypterByNZLeoGEN" + "/Part" + i.ToString() + ".txt", contents)
                num2 += num
            Next
        End If