ช่วยตัดข้อความให้หน่อยครับผมคิดมะออกอะ ไม่รู้จะตัดยังไงดี VB.Net ครับ

    Private Function RetrunList(str As String) As List(Of String)
        Dim lst As List(Of String) = Nothing

        Dim words() As String = str.Replace("dynamic", "").Replace("   ", "").Split("  ")
        For Each word As String In words
            If word.Trim().Length > 0 And word.Trim().Substring(2, 1) = "." Then
                lst.Add(word)
            End If
        Next
        Return lst
    End Function

        Dim tmpstr As String = RichTextBox1.Text
        tmpstr = tmpstr.Replace("mic   ", ",").Replace("tic   ", ",").Replace("Type", ",")
        RichTextBox1.Text = tmpstr
        Dim strValueIP(300) As String
        Dim strValueMac(300) As String
        strValueIP = tmpstr.Split(",")
        strValueMac = tmpstr.Split(",")
        For i = 1 To strValueIP.Length - 1
            strValueIP(i) = strValueIP(i).Replace("     ", "|")
            Dim Instrtmp As Integer = InStr(strValueIP(i), "|")
            strValueIP(i) = Mid(strValueIP(i), 1, Instrtmp)
            strValueIP(i) = strValueIP(i).Replace("|", "").Trim().Trim().Trim().Trim().Trim().Trim()
            LstIP.Items.Add(strValueIP(i))

            strValueMac(i) = strValueMac(i).Replace("     dyna", "").Replace("     sta", "")
            strValueMac(i) = Microsoft.VisualBasic.Right(strValueMac(i), 17)
            LstName.Items.Add(strValueMac(i).Trim().Trim().Trim().Trim())
        Next

INSERT INTO tblhost(HostName,HostIP,Status,Detail) VALUES 
('f8-bc-12-9b-39-ee','10.0.0.4','On Line','Onland'),('f8-bc-12-9b-39-ee','b4-99-ba-a5-64-27','On Line','Onland')

DataTable dt = new DataTable();
dt.Columns.Add("ID", typeof(int));
dt.Columns.Add("Name", typeof(string));

for (int i = 1;i <= 100;i++)
{
   DataRow dr = dt.NewRow();
   dr["ID"] = i;
   dr["Name"] = string.Format("Thaicreate{0}", i.ToString("000"));
}

using (SqlConnection connection = new SqlConnection("..."))
using (SqlCommand command = connection.CreateCommand())
{
   string commandString = "INSERT INTO [MyTABLE] ([ID], [Name]) VALUES (@ID, @Name);";

   command.CommandTimeout = 240;
   command.CommandType = CommandType.Text;
   command.CommandText = commandString ;
   command.Parameters.AddWithValue("@ID", SqlDbType.Int, 4, "ID");
   command.Parameters.AddWithValue("@Name", SqlDbType.NVarChar, 255, "Name");

    using (SqlDataAdapter insertAdapter = new SqlDataAdapter())
    {
        insertAdapter.InsertCommand = command;
        insertAdapter.UpdateBatchSize = dt.Rows.Count;
        
        insertAdapter.Update(dt);                   
    }
}